タグ

ブックマーク / officetanaka.net (2)

  • If OpenFileName <> "False"とIf OpenFileName <> Falseの違い

    開くブックをユーザーに選択してもらう場合は、[ファイルを開く]ダイアログボックスを表示するといいでしょう。 Sub Sample1() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub [ファイルを開く]ダイアログボックスを表示するには、ApplicationオブジェクトのGetOpenFilenameメソッドを使います。GetOpenFilenameメソッドによる[ファイルを開く]ダイアログボックスは、ユーザーが選択したファイルのフルパスを返すだけで、自動的には開きません。GetOpenFilenameメソッドの書式は次の通りです。 GetOpenFilename Fil

    baldman
    baldman 2016/12/04
    excel vbaでファイル選択のダイアログ
  • Office TANAKA - Excel VBA Tips[セルが選択されているか判定する]

    セルに対して何らかの操作を行うマクロの場合、セル以外のオブジェクトが選択されているとエラーになる場合があります。たとえば次のコードは、セルが選択されているときは選択されているセルにRAND関数を埋め込みますが、テキストボックスやグラフなどが選択されている状態で実行するとエラーになります。 Sub Sample() Selection = "=RAND()" End Sub 誤動作を避けるために、現在選択されているのがセルかどうか判定するには、TypeName関数の裏技を使います。TypeName関数は、バリアント型変数に格納されているデータの種類を調べる関数です。来は次のように使います。 Sub Sample2() Dim tmp As Variant tmp = 100 MsgBox "変数内のデータは、" & TypeName(tmp) & " です。", 64 tmp = "tan

    baldman
    baldman 2007/08/03
    selectionの中身選択のヒントになる
  • 1