数えるための整数を宣言するDimnAsInteger'ループ用の整数を宣言するDimiAsInteger'範囲の行を数えるn=Range("A1",Range("A1").End(xlDown)).Rows.Count'配列を範囲内の行数にサイズ変更するReDimstrNames(n)Fori=0Ton strNames(i)=Range("A1").Offset(i,0)Nexti'配列の値を表示するMsgBox Join...
SubTestMismatch()DimMyNumberAsIntegerMyNumber=Sheets("Sheet1").Range("B1").ValueEndSub セルB1 の値は、ユーザーがセル A1 に入力したテキストが期待されたものと一致せず、文字 B を含んでいないためエラーになりました。 このコードでは、整数が入力されることを期待して定義された変数 ...
「=」の右側の文字・数値を左側に入れると言う事です。 Range("A1") = "おはよう!" Range("A1") ← "おはよう!" シートの関数と同じで、文字は"ダブルクォーテーションで囲みます。 値はValue 値は、Valueであり、本来は、 Range("セル番地").Value = "文字" ↑ ↑ ↑ セル の 値...
SubFormatRange()WithWorksheets("Sheet1").Range("A1:C10") .Value =30.Font.Bold =True.Interior.Color = RGB(255,255,0)EndWithEndSub Withステートメントは入れ子にすることもできます。 次の例では、セル A1 に数式を挿入した後、フォントの書式を設定しています。
' vbaRange("C1").Value =ActiveSheet.Shapes(2).Left 代入する値としてプロパティを使用することで、図形の位置を取得することができます。 四角い図形の座標が取得され、セルに代入されました。 ' vbaMsgBox "図形の位置はLeftが" & ActiveSheet.Shapes(2).Left & "、Topが" & ActiveSheet.Shap...
上記の値を Excel のセルに代入すると 24:00 (シリアル値 1) になってしまいます。例として以下のサンプルを書きました。prettyprint コピー Sub test() Range("b1:e2").NumberFormatLocal = "[h]:mm" ' 表示形式を変更 Range("a1").Value = "正常でない例" Range("a2").Value = ...
関数やプロシージャの引数としてRange、Worksheet、Dictionaryなどを渡したとしても単にアドレスを受け渡ししているだけで実体のコピーが生成されるわけではありません。 これはファイルシステムで言うところのショートカットに似ています。例えて言うと、オブジェクト変数はファイルそのもので...