Office TANAKA - Excel VBA Tips[クリップボードを操作する]
クリップボードに格納されている形式を調べる クリップボードに、どんな形式のデータが格納されているかは、ApplicationオブジェクトのClipboardFormatsプロパティで判定できます。ClipboardFormatsプロパティは、クリップボードに格納されているデータ形式を配列で返します。クリップボードに何もデータが格納されていない場合は、ClipboardFormats(1)にTrue(-1)が入ります。 クリップボードにどんな形式のデータが格納されているかは、ClipboardFormatsプロパティが返す配列の要素と定数を比較します。次のサンプルは、クリップボードに画像が格納されていたらワークシートに貼り付けます。 Sub Sample() Dim CB As Variant, i As Long CB = Application.ClipboardFormats If C
Office TANAKA - セルの操作[セルのコピー]
マクロ記録の落とし穴 マクロによるセルのコピーは、ビギナーとベテランで最も差が出るコードのひとつです。たとえば、セルA1をセルC2にコピーするコードを考えてみましょう。この操作をマクロ記録すると、次のようなコードが生成されます。 Sub Macro1() Range("A1").Select Selection.Copy Range("C2").Select ActiveSheet.Paste End Sub なるほど、確かに間違っていませんが、決して美しいコードではありません。このコードを参考にして、Sheet1のセルA1をSheet2のセルC2にコピーするコードを作ってみましょう。おそらく次のようになると思います。 Sub Sample1() Worksheets("Sheet1").Select Range("A1").Select Selection.Copy Worksheets
Office TANAKA - Excel VBA Tips[配列をセルに代入する]
珍しくmixiのコミュニティで回答したので、こっちにも書いておきます。もともとの質問は「テキストボックスに入力された、改行で区切られたデータを、各セルに一括代入するには？」というものでした。つまり、こんな感じでしょうか。 UserFormの左側はテキストボックスです。MultiLineプロパティをTrueにして、複数行を入力できるようにしています。 一次元配列をセルに代入する たとえば「田中」「鈴木」「山田」という3要素を持つ配列をセルに代入するには、次のようにします。 Sub Sample1() Dim buf As String buf = "田中" & vbCrLf & "鈴木" & vbCrLf & "山田" Range("A1:C1") = Split(buf, vbCrLf) End Sub Split関数は「"田中" & vbCrLf & "鈴木" & vbCrLf & "山
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Office TANAKA - Excelコンテンツ
Office TANAKA - トップページ
