2018-03-01から1ヶ月間の記事一覧
むかしに作った四コマ漫画。
【問題】 下記のプロシージャ「test」を実行したとき、 メッセージボックスで表示される文字列は何か。 Sub test() Dim buf As String buf = "エクセル" Call test2(buf) MsgBox buf End Sub Sub test2(ByRef buf2 As String) buf2 = "ワード" End Sub
【問題】 ①イミディエイトウィンドウに、ブックのシート数を表示しなさい。②イミディエイトウィンドウに、ブックの全シートの名前を表示しなさい。
Sub Sample() Worksheets.Add ★.Name = "埼玉" End Sub シートを追加しそのシート名を"埼玉"に変更するマクロ。 ★には何が入るかという問題。
「VLOOKUP関数を使っているんだけど、検索値がマスタにあるのにエラーが出てしまう」こういう質問をいただくことがあります。一番ありがちなのは、VLOOKUP関数の1番目の引数で指定する「検索値」と2番目の引数で指定するデータ範囲の左端のデータ型がずれ…
一番左のシートに仕訳帳などを貼る(8列目が勘定科目名であることを想定)。 2番目のシートには抽出対象の勘定科目をマスタにしておく。 出力するファイルは重複を避けるためファイル名に現在日時をつける。 Sub 複数のブックに分割() Dim フォルダ, セル,…
コンボボックスの初期値設定はInitializeイベントで行う。 AddItemメソッドでリストを作り、 ListIndexプロパティで初期表示するアイテムを指定する。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "1 上杉彰彦" .AddItem "2 高石梨紗" .AddI…