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 & "山
Office TANAKA - FileSystemObject[YouTubeの動画をダウンロードする]
サンプルとしては、いかがなものかとも思いましたが(笑)。 YouTubeなどの動画投稿サイトでは、原則として動画はブラウザで視聴します。しかし、投稿されている動画ファイルを自分のパソコンに保存しておけば、いつでも好きなときに見ることができます。そう考える人は、おそらく少なくないでしょう。実は私もそうです。で、自作した保存用のプログラムなどを活用しているのですが、よく考えれば、そうした処理でFileSystemObjectを多用しています。なので、FileSystemObjectのサンプルとして公開します。 動画ファイルの形式 多くの動画投稿サイトでは、動画ファイルは拡張子flvのFalsh Video形式です。動画ファイルを自分のパソコンにダウンロードした後で再生するには、当然ですがFalsh Videoファイルを再生できなければなりません。Windowsに付属するWindows Medi
Office TANAKA - Excel VBA Tips[共有ブックを開いているユーザーを調べる]
ブックを「共有ブック」として保存すると、複数のユーザーで同時に編集することができます。 あなたが共有ブックを開いたとき、ネットワーク内で他の誰かが同じブックを開いているかもしれません。 共有ブックを、現在誰が開いているかを調べるには、WorkbookオブジェクトのUserStatusプロパティを使います。 UserStatusプロパティは、そのブックを開いているユーザーに関する情報を、次のような二次元配列で返します。 UserStatus(n, 1) … ユーザー名 UserStatus(n, 2) … 開いた日時 UserStatus(n, 3) … 共有ブックかどうか もし、そのブックを、あなただけが開いているのなら、UserStatusプロパティが返す配列の要素は1(あなただけ)になります。配列の要素数を調べるにはUBound関数を使います。 Sub Sample1() Dim Us
VBA Tips
VBAコンテンツ Home Excel VBA Excel VBA Tips セル セルが選択されているか判定する アクティブでないシートのアクティブセル 結合セルを調べる 簡単に罫線を引く セルのValue2プロパティ あるセルがセル範囲に含まれるかどうか セル範囲の操作 確実に選択されているセルを操作する 入力されているデータの最終セルを取得する 複数のセルを選択する 特定のセル範囲内を検索する 非表示のセルを検索する すべて検索する 日付を検索する 1と001の問題 Range(左上セル, 右下セル)の使い方 セルの罫線に関すること new オートフィルタ 書き方の基本 文字列で絞り込む 数値で絞り込む 日付で絞り込む 色で絞り込む 作業列で絞り込む 絞り込んだ結果をコピーする 絞り込んだ結果を集計する 絞り込んだ結果の行を操作する オートフィルタの状況を判定する 数式のエラーで絞り
Office TANAKA - Excel VBA Tips[メモリの状況を取得する]
ExcelのVBAには、Excelが使用できるメモリの総容量や、空き容量などを取得するプロパティがあります。 Sub Sample1() Dim n As Long, msg As String n = Application.MemoryTotal msg = msg & "Excelが使用できるメモリの総容量：" & Format(n / 1024, "#,##0") & "KB" & vbCrLf n = Application.MemoryUsed msg = msg & "Excelが使用しているメモリの総容量：" & Format(n / 1024, "#,##0") & "KB" & vbCrLf n = Application.MemoryFree msg = msg & "Excelが使用できるメモリの空き容量：" & Format(n / 1024, "#,##0")
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Office TANAKA - Excelコンテンツ
Office TANAKA - VBAの実行時エラー
Office TANAKA