Office TANAKA - Excel VBA Tips[フォルダを選択するダイアログ]
フォルダを選択するダイアログボックスを表示するにはいくつかの方法があります。 1.FileDialogオブジェクトを使う方法 Sub Sample1() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then MsgBox .SelectedItems(1) End If End With End Sub 2.Shellを使う方法 Sub Sample2() Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\") If Not myPath Is Nothing Then Ms
Office TANAKA - ファイルの操作[テキストファイルを操作する(開く)]
本稿で紹介する「テキストファイルの操作」は、Shift-JIS形式のテキストファイルを対象にしています。UTF-8形式のファイルを扱うときは、下記ページをご覧ください。 UTF-8形式のテキストファイルから読み込む UTF-8形式のテキストファイルに書き込む ファイル操作の最後に、テキストファイルへの読み書きテクニックをご紹介します。VBAでマクロを作成していると、たまにテキストファイルへデータを書き込むと便利なケースに遭遇します。たとえば、現在の設定を保存して後で利用したり、ユーザーが行った操作のログを残したり・・・。テキストファイルの操作は Excelのシートやセルの操作とは異なり、どちらかというとVisual Basic的なテクニックです。詳細に解説しているマニュアル本も少ないかもしれません。ここでは、テキストファイルからデータを読み込むときのセオリーや、テキストファイルにデータを書
L'eclat des jours(2006-06-21) まだイルカ
_ まだイルカ kkkkkkkkさんの「Excel VBAで素数 featuring イルカ」を見て、Agentを生で使うのではなく、Office::Assistantとして使えばアニメーションを妙なことをしなくても使えることを知った。 知ったのは良いけど、この方法だとアニメーションで指定した動作を行う前にAgent::sayの呼び出しに入ってしまうように見える（というか、VBAのデバッガで止めて確認できたわけだけど）。 多分、こうじゃないかな（もちろん知ってて簡略化して書いている可能性もあるけど）。 Public Sub PrimeNumbersCalmMeDown() ' pgクラスは呼べないからとりあえず削除 Dim str As String 'ここでは篩わない。先に考え中の動作に入らせる。 With Assistant .On = True .Visible = True .An
Excel VBAで素数 featuring イルカ - kkkkkkkk
素数をイルカ君に数えてもらうことにした。 素数生成部分は別途クラス化。Assistantに動いてもらう箇所のみ掲載。 Public Sub PrimeNumbersCalmMeDown() Dim str As String Dim pg As New PrimeGenerator pg.max = 100 pg.init str = str + pg.GetPrimeString(10) str = str + Chr(10) + "落ち着け… 素数を数えて落ち着くんだ…" str = str + pg.GetPrimeString(10) With Assistant .On = True .Visible = True .Animation = msoAnimationThinking End With With Assistant.NewBalloon .Text = str .S
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
