サクサク読めて、アプリ限定の機能も多数！
トップへ戻る
アメリカ大統領選
www2s.biglobe.ne.jp/~iryo
<HTML><HEAD><TITLE>読み込み完了</TITLE> <SCRIPT Language="JavaScript"> <!-- function ev1() {alert("ページ読み込みが完了しました");} window.onload=ev1; //--> </SCRIPT> </HEAD> <BODY> </BODY> </HTML>
1．IEを起動してWebページを表示 （ここに紹介のサンプルマクロは標準モジュールに貼り付ければ実行できます） (1)指定したWebページを表示 CreateObject("InternetExplorer.Application")オブジェクトでWebページを表示 Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www2s.biglobe.ne.jp/~iryo/" objIE.Visible = True Do While objIE.Busy = True DoEvents Loop Set objIE = Nothing End Sub ・Set objIE = CreateObject("InternetExplorer.Applicati
株投資を行うのも初めてなら、インターネット取引も初めての者にとって、行き成り実相場で スタートには不安がある。経験者の友達がいれば話を聞くことができるがオレのようにゼロ の人はどうすればよいかと言うと、Webには架空の100万や1000万円を元手に株売買の シミュレーションをゲームとして実行できる練習に最適なサイトが沢山あります。 参加は無料であり、どれかサイトに登録して実際のインターネット取引の感覚で練習して その後に実際の取引を行えばスムーズに株売買をスタートできます。 1.シミュレーションゲームのリンク表
0.はじめに 1 IEを起動とWebページ表示 (1)指定したWebページを表示 (2)ウインドウの設定 (3)IEウィンドウに情報書き込み1 (4)IEウィンドウに情報書き込み2 (5)表示ページのＵＲＬ取得 (6)表示ページのタイトル取得 (7)ファイル情報取得例 2 フォームエレメント制御 (1)テキストボックスへ文字入力 (2)コントロールボタンクリック (3)ラジオボタンのチェック方法 (4)チェックボックスのチェック方法 (5)ドロップダウンリスト指定方法 (6)オブジェクトValue文字制御 ・文字数・指定文字抽出 ・小文字化・大文字化 ・ひらがなをカナに ・・等 3 HTMLファイルの情報取得 (1)Bodyタグのデータ取得 (2)テキストデータを取得 (3)テーブルデータ取得 (4
４．変数と定数 ４ー１変数と定数の宣言方法 Const fil1 As String = "c:\４月PKG.xls" '定数の例 Public Const dva As String = "b:" '共通定数 ' Dim aaa As Integer '整数型 Public xxx As Integer '整数型（共通の場合） Dim bbb As Long '長整数型 Dim ccc As Single '単精度浮動小数点数型 Dim ddd As Double '倍精度浮動小数点数型 Dim eee As String '文字列型 Dim fff As Date '日付型 Dim ggg As Currency '通貨型 Dim hhh As Object '任意の型のオブジェクト Dim iii As Variant 'バリアント型 Dim jjj
２９−５1．ＣＳＶファイルを早く開く方法 ○●●Excel97以降ＣＳＶファイルの読み取りが遅くなって イライラしていたので、早く開く方法がないか検討しました。 結果：テキストファイルへ変換し文字列で読み取る方法が一番よかった。 (1)．一般的なＣＳＶ読み込みマクロ【84.19秒】----------------4番 (2)．キ−ボ−ドから指定して読み取る方法のマクロ【2.85秒】----3番 (3)．テキストファイルへ変換し文字列で読み取る【0.38秒】------1番 (4)．ファイルを開かずに読み取りセルへ1行ずつ書く【121.98秒】--6番 (5)．ファイルを開かずに読み取り後からセルへ記入【116.82秒】---5番 (6)．ファイルを開かずに読み取りセルへまとめて記入【0.60秒】---2番 ・今回時間測定したものは、郵便HPからダウンロ
２９−７４．指定したセルへ画像を貼り付け ○●● ワークシートに画像を張付ける場合、マニアル操作でメニューから [挿入][図][ファイルから]を選択して画像フェイルを指定して貼り付け その後任意の場所に移動すると共にサイズを変更すれば希望のセルへ 画像を張付けることが出来す。 しかし、ワークシートへ多数の画像を張付ける場合マニアル操作は 面倒であり、下記マクロでセル範囲を指定し簡単に貼り付けることが できます。（本例ではセル範囲は固定になっていますが実際の使用では インプットボックスで行なうとよい）（サンプル掲載「KIgazou1」) Sub Macro1() 'セル範囲 Set scel = Range(Cells(2, 2), Cells(12, 5)) scel.Select x = ActiveCell.Column y = ActiveCell
3.その他のマクロ 3-1.グラフのgif保存 作成したチャートをgif保存できると、便利の場合が多々あります Sub gif保存() Dim cname As String 'シートに表示されているチャート名 Dim gname As String 'gif保存のチャート名 ' チャート名 For Each zu In ActiveSheet.ChartObjects '[1] cname = zu.Name Next If cname = "" Then MsgBox "このシートにグラフがありません" Exit Sub End If '保存場所確認 '[2] phn = ActiveWorkbook.Path '保存ファイル名 gname = "TestChart" '[3] msg = "縮小する場合は縮小率を入力して下さい。" & Chr$(10) & Chr$(10) _ &
１４−２１ ステ−タスバ−への表示（２） 14-9項と目的は同じであるが本例だと行数が少なくシンプル。 （１）DATA数を表示 Sub 例1421a() cend = 1500 'デバッグ用数値 Application.StatusBar = True For i = 2 To cend Application.StatusBar = "ＤＡＴＡ処理中 --- " & i & "/" & cend ' ---------------------------------------------------- For j = 1 To 10000 'デバッグ用タイミング（実際はここに実行マクロを入れる） Next '----------------------------------------------------- Next Application.St
サンプル[15] KIroumazi(ロ−マ字変換)ver0.7(2004/02/28) １．概略 ・ひらがな・カタカナをローマ字に変換します。又逆のローマ字をひらがなに変換もできます （なお、ひらがな変換では文中に英文字がある場合それもひらがなにしてしまいます）。 ・漢字変換はExcel2000で作成した文章のみ変換できます。 （他のアプリケ−ション又はExcel95/97で作成した文章も、Excelシートへ 貼り付ければローマ字変換は出来ますが漢字は変換されません） ・変換は、新しいブックを開き原文をそこに貼り付け実行します。 したがって原文のExcelシートに変化はありません。 ２．このプログラムの使用方法 ２．このプログラムの使用方法 [1]変換するワ−クシ−トを開き変換すシートをアクティブにする。 [2]KIroumaziを開く。開
Java Script のリンク集 ★印はアクセスカウント数を示す。 ★：5万、★★：10万、★★★：20万、★★★★：40万、★★★★★：80万
JavaScriptを基礎偏と実用偏に別け掲載。JavaScriptで作成の検索エンジン・エクスプローラ風リンク表・動く写真等独創的サンプル満載
(1) Webから株価データ取得(Yahoo) 2014/6/26Yahooファイナンスの時系列データ仕様変更により、Excel2003はWebクエリで取得できなくなりました。 Excel2010では取得できるが時系列テーブルのみの指定が出来ないので、取得データから時系列データを 取り出す必要があり面倒になりました。 したがって、この「(1) Webから株価データ取得(Yahoo)」ページに掲載方法では株データを取得できません。 削除を考えたが、一般的なWebからWebクエリを使用した表データの取得方法の参考資料に別ページに残します。 別ページ → 旧 Webから株価データ取得(Yahoo) なお、2014/06/26からExcel2003で取得できなくなったが、過去には2008/10/1にExcel2000が使用できなく なりました。その時Webクエリを使用しないで時系列データを取得する
３．ブック・シートの制御 ３ー１ブックをチェックしオープン又はアクティブ化 Const fil2 As String = "b:\VBA雑\小文字.xls" Const fil2a As String = "小文字.xls" Sub 例31() fila = 0 For Each file_name In Windows If file_name.Caption = fil2a Then Windows(fil2a).Activate fila = 1 End If Next If fila = 0 Then Workbooks.Open Filename:=fil2 End If End Sub ・このプログラムでは定数を使用しファイル名を入れているが、システムに合わせ変更する。 ・Ｆｏｒｅ ＥａｃｈでＥｘｃｅｌでオープンされているウインドウを調べ
Kindle資料：ExcelでKindle本作成 Kindle資料：ExcelでKindle表紙作成 自作本：木曾上松町吉野史 自作本：コレが知りたかった!Excelマクロ&VBAテクニック 自作本：新・Excel VBAで極めるシステムトレード~最強パワーアップ編 自作本：株解析チャートから自動発注ロボットまで! Excel VBAで極めるシステムトレード amazon.co.jp バナー 兄弟ページ⇒ このページについてのご意見・ご感想等をお寄せ下さい。 メール（●を@に変更して下さい） (このページへのリンクは自由(確認不要)です)
１３．グラフの作成 ←基デ−タ ←本例で作成のグラフ Ｅｘｃｅｌ操作の出来る者であれば簡単に自動作成し、記録出来るので特にグラフ 関係の関数等を覚えなくともよい。 ここでは自動作成したＶＢＡを修正する時参考になる事項を中心に記述。 （１）グラフの大きさ指定 この図は指定の位置関係を示す '[1]チャ−トを作成時指定 ActiveSheet.ChartObjects.Add(25, 125, 338, 220).Select '[2]既に作成済みのチャ−トに対し指定 ActiveWindow.Visible = False ActiveSheet.DrawingObjects(cnam).Select Selection.Width = 429 Selection.Top = 112.5 Selection.Height = 222 Range(
「Excel関連のリンク集」 このページは移転しました お手数ですが、リンクやブックマークの変更をお願いします。 このページは、5秒後に自動的に移動されます。 自動的に移動されない場合はこちらをクリックしてください。
ExcelVBAで作成のツールを多数掲載しています。 特に下記は、HP作成に２０年以上毎日使用中です。 [1] KIhtml(ExceシートをHTML変換) [3] KIcopy2(ファイルを自動選択しコピー)
このページを最初にブックマークしてみませんか？
『ExcelVBA便利帳』の新着エントリーを見る
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
