「エクセルの操作したり編」の編集履歴(バックアップ)一覧はこちら
エクセルの操作したり編 - (2009/03/02 (月) 14:51:12) の最新版との変更点
追加された行は緑色になります。
削除された行は赤色になります。
***エクセルを開かないでセルの内容を読み込む
&bold(){Str = ExecuteExcel4Macro("C:\[Book1]Sheet1'!R3C9")}
C:\Book1.xlsのSheet1のI3のセルの値を読み込み、Strに格納する。
※()の中はすべて文字列で記述
※ブック名は[]でくくる
----
***エクセルに書き込む
&bold(){Sheets("Sheet1".Range("E5").Value = "文字!"}
Sheet1のE5のセルに「文字!」を書き込む。
----
***Book名の変更
&bold(Name "C:\sample.xls" As "C:\サンプル.xls"}
C:\sample.xlsをC:\サンプル.xlsに変更する。
----
***エクセルを開かないでセルの内容を読み込む
&bold(){Str = ExecuteExcel4Macro("C:\[Book1]Sheet1'!R3C9")}
C:\Book1.xlsのSheet1のI3のセルの値を読み込み、Strに格納する。
※()の中はすべて文字列で記述
※ブック名は[]でくくる
----
***エクセルに書き込む
&bold(){Sheets("Sheet1".Range("E5").Value = "文字!"}
Sheet1のE5のセルに「文字!」を書き込む。
----
***Book名の変更
&bold(){Name "C:\sample.xls" As "C:\サンプル.xls"}
C:\sample.xlsをC:\サンプル.xlsに変更する。
----
****罫線を引く
&bold(){With Sheets(シート名).Range(セル範囲)}
&bold(){ With .Borders(罫線の位置)}
&bold(){ .LineStyle = 罫線の種類}
&bold(){ .Weight = 罫線の太さ}
&bold(){ .ColorIndex = 罫線の色}
&bold(){ EndWith}
&bold(){EndWith}
<罫線の位置>
上段:xlEdgeTop
下段:xlEdgeBottom
右側:xlEdgeRight
左側:xlEdgeLeft
内側の垂直線:xlInsideVertical
内側の水平線:xlInsideHorizontal
<罫線の種類>
実線:xlContinuous
二重線:xlDouble
破線:xlDash
<罫線の太さ>
細線:xlHairline
標準線:xlThin
太線:xlMedium
----
****セルの色の指定
&bold(){Sheets("Sheet1").Range("A1:D5").Interior.ColorIndex = 10}
赤:10
薄い緑:35
----
***指定のフォルダ内のファイルを検索する
&bold(){books = Dir("C:\asami","*.xls",vbNomal)}
&bold(){If books = "" Then}
&bold(){ MsgBos "0件です。"}
&bold(){ Exit Sub}
&bold(){EndIf}
C:\asamiにエクセルファイルがなかったらメッセージを表示する。
ファイルがあったらファイル名がbooksに格納されています。
<ファイルの種類>
vbNormal … 標準ファイル
vbReadOnly … 読み取り専用ファイル
vbDirectory … フォルダ
----
***自分のパスを求める
&bold(){Path = ActiveWorkbook.Path}
----
***自分のブックをコピーする
&bold(){Activeworkbook.SaveCopyAs(C:\asami\copy.xls)}
今開いているブックのコピーをC:\asami\にcopy.xlsとして作成する。
----
***ブックを開く
&bold(){Workbooks.Open(C:\asami\copy.xls)}
C:\asami\copy.xlsを開く
----
***シートの削除
&bold(){Application.DisplayAlerts = False}
&bold(){Worksheets("Sheet1").Delete}
&bold(){Application.DisplayAlerts = True}
削除してもよろしいですか?のメッセージを表示しないでシートを削除する
----
***ブックの保存
&bold(){AcriveWorkbook.Save}
----
***ブックが保存されているかを判定する
&bold(){If ActiveWorkbook.Saved = True Then}
&bold(){ ActiveWorkbook.Close}
&bold(){End If}
ブックが保存されていたらブックを閉じる
合計:&counter()