VBA– tag –
-
VBAノート
VBAでも例外処理がしたい。【VBA】
【経緯】 VBAでも例外処理(try.chatchみたいな)ことができないか、 今回勉強しました。 【On Errorステートメントを使う】 まず、プログラムを書きます。 Sub 例外処理() On Error GoTo ErrorHandler ' エラーハンドラーへのジャンプを設定 If ans = vbYes... -
VBAノート
バックアップファイルを取りたい。【VBA】
【経緯】 Excelファイルのバックアップを取りたいと思い、 できないか、 今回勉強しました。 【タスクスケジューラとVBA(Visual Basic for Applications)を使う】 手順を書きます。 VBAを使ってExcelを保存するマクロを作成。 VBAマクロを実行するバッチ... -
VBAノート
ExcelファイルをPDFファイルに変換したい。【VBA】
【経緯】 VBAでExcelファイルをPDFファイルに変換したいと思い今回勉強しました。 【「ExportAsFixedFormat」を使う】 プログラムを書きます。 ' シートをPDFに変換し、指定したファイル名で保存します ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:... -
VBAノート
“Call”ステートメントで取得した変数を他のbookでも使いたい。【VBA】
【経緯】 VBAでモジュールを二つ「module1」「module2」と作り、「module2」で「module1」で取得した変数を使いたいと思い今回勉強しました。 【グローバル変数を使う】 まず、ダメだったプログラムを書きます。 'module1 Sub MySub() Dim myBar as String... -
VBAノート
セルに文字を入れたら、行が追加される【VBA】
【経緯】 Excel関数の「match関数」と「index関数」を使って値を得ていたが、それらの関数だと、「重複している値はセルの上にあるほうが優先されて読む」のでどうにかセルの下にあるほうを読めないか模索していた。しかし、調べていくと、なかなか難しい... -
VBAノート
列の一番下のセルの行を得る【VBA】
【経緯】 VBAで「B列の文字が入力してある一番最後の行を得たい」と思い、 今回勉強しました。 【「.End(xlUp)」を使う】 まず、プログラムを書きます。 dim xlendrow as long dim endrow as long xlendrow = Cells(Rows.Count,1).Row endrow = Cells(xlen... -
VBAノート
セルに文字を入れたら、プログラムが実行される【VBA】
【経緯】 VBAで「セルに文字を入れたら、日付が入力されるようにしたい」と思い、 今回勉強しました。 【「Worksheet_Change」を使う】 まず、プログラムを書く準備をします。 Excelの開発タブから"Visual Basic"をクリック プロジェクトタブの"Sheet1"を... -
VBAノート
セルの下から指定した文字を見つける【VBA】
【経緯】 VBAで「セルを下から数えて、指定した文字を見つけたい」と思い、 今回勉強しました。 【「”For Next文” でStep -1」を使う】 プログラムを書きます。「A列に苗字がたくさんあって、その中の一番下にある"森"という文字を検出する」という流れで... -
VBAノート
切り取りモード、コピーモードを解除する方法【VBA】
【経緯】 VBAで「セルをコピーして、それを別のExcelファイルに貼り付けて、そして、コピー元のファイルは閉じる」というプログラムを作ったのですが、「コピー元を閉じる」という命令でエラーがでました。 なので、今回勉強しました。 【「Application.Cu... -
VBAノート
Excelファイル開くとセル”A1”になるようにしたい【VBA】
【経緯】 上司が「誰かに見てもらうExcelファイルのRangeは”A1”にしておくように」と言われ、私はそれをわすれてしまうので、 VBAでどうにかできないか考えてみました。 【ThisWorkbookにコードを書く】 手順を書きます。 まず、 VBA開きます。 左のプロジ... -
VBAノート
Private Sub Worksheet_SelectionChange(ByVal Target As Range)で範囲選択したい【VBA】
【経緯】 VBAで、Private Sub Worksheet_SelectionChange(ByVal Target As Range)を使うとき、 1つのセルでの処理をやっていたが、もっと広い範囲で処理を行いたくて、 今回勉強しました。 【IF Not intersect(Target, Range("A1":"B3")) Is Nothing Then.... -
VBAノート
時間を比較する【VBA】
【経緯】 VBAを使って、取得した時間の比較をしたくて、 今回勉強しました。 【日付型にする「CDate」を使う】 まず、プログラムを書きます。”今の時間now_timeと制限時間limit_timeがあり、今の時間が過ぎたら、この処理”って設定です。 Dim now_time, li... -
VBAノート
今日をセルを見つける【VBA】
【経緯】 VBAを使って、セルに日にちが記載してあります。その中で今日のセルを選択できるようにしたいと思い、 今回勉強しました。 【「WorksheetFunction.Match(CLng(Date), Range("A1:A1000"), 0)」】 まずはプログラムを書きます。find_dateという変数... -
VBAノート
セルをロック【VBA】
【経緯】 VBAを使って、セルをロックしたくて、 今回勉強しました。 【セル"A1"をロックするには「ActiveSheet.Range("A1").Locked = True」を使う】 まずはプログラムを書きます。 ActiveSheet.Cells.Locked = False こんな感じでプログラムを書くとセル... -
VBAノート
シートを保護【VBA】
【経緯】 VBAを使って、シートを保護したくて、 今回勉強しました。 【シート保護解除は「ActiveSheet.Unprotect」を使う】 まずはプログラムを書きます。 ActiveSheet.Unprotect こんな感じでプログラムを書くといけますよ。 パスワードを指定したい場合... -
VBAノート
Excelを開いたら、プログラムが実行される【VBA】
【経緯】 VBAを使って、Excelを開いたら、プログラムが実行できないか 、 今回勉強しました。 【「ThisWorkbookモジュール」を使う】 VBAを開いて、VBA Projectフォルダーを展開し、ThisWorkbookモジュールをダブルクリックします。 モジュールウィンドウ... -
VBAノート
今の時間を取得する【VBA】
【経緯】 VBAを使って、今の時間を取得したくて、 今回勉強しました。 【「Now」を使う】 まず、プログラムを書きます。 1行で済みました。 now_time = Now こんな感じです。 私は取得した時間で「何時になったら、この処理」って感じで使っています。 参... -
VBAノート
If ElseIf Else【VBA】
【経緯】 VBAを使って、分岐を増やしたくて、 今回勉強しました。 【「If Elself Else」を使う】 まず、プログラムを書きます。今の時間を見て、9時以前ならこのプログラム、17時以降ならこのプログラムを実行するという設定です。 now_time = Now if now_... -
VBAノート
shift + →【VBA】
【経緯】 VBAを使って、キーボードで「shift + →」ができないか、 今回勉強しました。 【Range(Selection, Selectoin.Offset(0,10)).Selectを使う】 まず、プログラムを書きます。セル("A1")からセル("J1")まで選択するという設定です。 Cells(1,1).Select... -
VBAノート
ユーザーフォームのテキストボックスを半角だけ入力できるようにする。【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、ユーザーフォームを作成しテキストボックスを入れました。そのテキストボックスには半角数字しかいれたくないので、 今回勉強しました。 【「IMEMode」を「8」... -
VBAノート
検索機能の”Ctrl” + “F”を使いたい【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、”Ctrl” + ”F”の検索機能を使いたくて、 今回勉強しました。 【「Find()」を使う】 まず、プログラムを書きます。sheetの中に”森”がいるかどうかをみるという設... -
VBAノート
“F2″キーと”エンター”キーを押したい。【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、Excel上でキーボードの”F2"キーと”エンター"キーを押す処理を 今回勉強しました。 【「SendKeys」を使う】 プログラムを書きます。 SendKeys "{F2}", True Sen... -
VBAノート
ユーザーフォームのテキストボックスに初めから今日の日付をいれたい。【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、ユーザーフォームでテキストボックスを作成して、そのなかに日付を記入することにしました。 初めは空白だったのですが、「今日の日付をいれてほしい」という... -
VBAノート
全角を半角に変換する【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、バーコードで値を読み込ませていたが、全角で読んでしまうときがあって、困っていました。 なので、今回は全角を半角にする方法を勉強しました。 【「StrConv(... -
VBAノート
セルの値を消す【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、セルの値を消したいと思い、 今回、勉強しました。 【「.ClearContents」を使って、Excelのセルの値を消す。】 「.ClearContents」を使うとうまくいきました。... -
VBAノート
複数の値を.AddItemで作りたい【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、ユーザーフォームを作っていました。プルダウンを使って、値を選択するときに私は、 「.AddItem」を使って、値を選択できるようにしていましたが、選択する値... -
Excelノート
文字列の途中にセルを埋め込みたい【Excel】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 Excelでセルの中に文字が入ってて、「その中に指定したセルが入ったら、いいな~」 と思い、今回、勉強しました。 【「=""&セル」を使う】 「=""&セル」でうまくい... -
VBAノート
OutLookの本文を改行したい(改)【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使ってて以前、OutLookの本文を改行したのですが、「&」と「vbCrLf」だらけになってしまい、 美しくありませんでした。 なので、今回は他のやり方を勉強しました。... -
VBAノート
OutLookに表を貼り付けたい。【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 VBAを使って、Excelで作った表を貼り付けられないか、 今回勉強しました。 【「.GetInspector().WordEditor.Windows(1).Selection.Paste」を使う】 「.GetInspector().WordE... -
VBAノート
ダイアログボックスを使って、ファイルを選択するとき、はじめに開いているフォルダを変えたい【VBA】
【環境】 Windowsの仕様 エディション:Windows 10 Pro バージョン:20H2 【経緯】 ダイアログボックスを使って、ファイルを選択するとき、はじめに開くところがいまいちで、階層が深い場合、 開きたいフォルダにたどり着くのがたいへんだった、なので、 今...