Category Archives: Excel

[MSOffice:ExcelVBA]エクセル操作

サンプルコード 要件 任意パスにあるエクセルの全シート分の特定のセルの値を抽出し、一覧化する。 処理概要 [前提]任意のパスをSheet1に記載 ①Sheet1に記載のあるパスのエクセルを読み込む ②①で読み込んだ情報をSheet2へ出力 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

Read More

[MSOffice:ExcelVBA]処理の高速化

サンプルコード エクセルへの書き込みを制御 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub FastCode () ‘変数の宣言 Dim x As Integer Dim y As Integer Dim i As Integer ‘初期化–任意の設定 x = 1 y = 1 i = 1 ‘画面描画抑止モード Application.ScreenUpdating = False ‘メイン処理 Do Until i > 10000 y = i Sheet1.Cells(y,x).Value = "hog

Read More

[MSOffice:ExcelVBA]ファイル入出力

サンプルコード ファイル読み込み 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub ReadFile () ‘変数の宣言 Dim aRFullPath As String Dim aRFileNo As Integer Dim aRLine As String   ‘初期化–任意設定 aRFullPath = "c:¥xxxx¥hoge.txt" ‘初期化–固定 aRFileNo = FreeFile   ‘メイン処理_ファイル読み込み Open aRFullPath For Input As a

Read More