vba 入力規則ーリストを設定する。
Sub SetupLISTBOX()
Dim maxRow As Long
maxRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) 'A列で最大行を求める場合
With Range("C2:C" maxRow).Validation
.Delete
.Add Type:=xlValidateWholeNumber, _
Operator:=xlBetween, _
Formula1:="=Sheet2!$A$2:$A$100" ’Sheet2にリストの要素あり
End With
End Sub
或る日、突然、Windowsパソコンを共有することになった。 これまでは、夜間や早朝に無人運転していたバッチは、ログインしたままなので、エラーが起きた場合、その画面を見ることができた。 しかし、共有することになって、以降は、当然、ログインしたままにできない。 つまり、バッチは、ログインしていなくても実行できるようにした。そして、実行できた。 エラーが起きたら、プログラムはそのエラー画面を出したまま、止まっていた。だから、そのエラー画面を見ることができたのだった。 ところが、バッチで動かしたaccess、excelといったプログラムは、ログインしていないため（システムが動かしているため）、エラーが起こった場合にその画面を見ることができない。 すなわち、表からは見えないシステムの空間で実行されるので、実行中の画面もエラーで止まっている画面も全く見ることができないのである。 どうするかといえば、エラーの原因解明のための情報をログとして吐き出し、プログラムをキチンと終わらせておく必要がある。 つまり、On Error GoTo Error_Handlerをモジュールの先頭で宣言し、エラーの原因究明のじょうほうをログとして出力する、適切なError_Handler（msgbox)を書いておく。 或いは、システムが起動したプログラムを捕まえる方法は、あるのだろうか？
vbaでシートをコピーし、名前を付けて保存するコードは、excelのクセを踏まえた上で、コードを書いていく。
Sub CopyandSaveFile()
Dim file1 as String
'menuシートのBxxセルにあるファイル名をゲットしておく。
file1 = Worksheets("menu").Range("Bxx").Value
'まず、新しいブックを作成する。即ち、新しいファイルをオープンしておく。
Workbooks.add
'シートをコピーする。
Worksheet("table").Range("A1:G4").Copy
'シートを貼り付ける。
ActiveSheet.Range("A1:G4").PasteSpecialAll
'式を値にする。
ActiveSheet.Range("A2:G4").Value = ActiveSheet.Range("A2:G4").Value
'列幅を整える。
ActiveSheet.Range("A:G").Autofit
'名前を付けて保存する。
ActiveWorkbook.Saveas fileNmaes:=file1
'ファイルをクローズする。
ActiveWorkbook.Close
end Sub
Workbooks.addしたら、ActiveSheetは、新たに作成した空のファイルのシートになる。それがExcelの癖。そして、最後にファイルをクローズしておくのもexcelの癖に合わせるためだ。
excelでは引用符は文字列を設定するために用いられる。 例えば、B列とC烈とD列をハイフン("-")で連結するのであれば、=B2&"-"&C2&"-"&D2となる。ここで&と文字列を挟む引用符(")が重要な役割を果たす。 この式をvbaでA列に設定するコードは、以下の通り。なお、最大行はB列で求めている。
Dim i As Long
Dim maxRow As Long
maxRow = Worksheets("data").Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 to maxRow
Range("A"&i).Formula = "=B" & i & "&""-""&C" & i & "&""-""&D" & i
Next
つまり、式のなかの引用符はダブルで記述する必要があるのだ。
そして、上記のようなやり方で、複数の列でユニークな値を生成し、VLOOKUPでピックアップできるようにするのである。
vbaでメールを操作するときは、outlookを事前に起動しておく。 当然のことですが、意外と忘れて、vbaコードが実行時エラーとなる。昨日は、動いたのに、なんでーと慌てる。 そんな時には、outlookを立ち上げましょう！そしたら、動くかもです。
ログインしたままだと、動いていた夜間バッチは、必ず、一旦、ログオフする運用に変わると、そのままでは起動されなくなってしまった。さて、どうする？
タスクスケジューラのバッチ設定で、まずは、「ユーザーがログオンしているかどうかにかかわらず実行する」をチェックしてみた。でも、これだけでは、起動されなかった。
次に、ぐぐると、開始オプションにそのバッチがあるフォルダを作業フォルダとして指定せよとあったので、そうしたのだが、それでも、なお、起動されなかった。
そして、再びググり、「最上位の特権で実行する」もチェックしたが、駄目だった。
そこで、試しに、コマンドプロンプトで、そのバッチを動かしてみた。そしたら、動かそうとした実行ファイルが、他のプロセスで使用中と怒られた。
なので、タスクスケジューラで、該当のバッチの右クリックし、実行中のインスタンスを全て停止してみた。
そしたら、バッチは、ログインしていなくても動作するようになった。
いろいろ試行錯誤したせいで、インスタンスが宙に浮いてたんだね。
ま Windowsは、色々とわかりにくいね。やれやれ。
excel vbaでメール本文を作るがファイル参照のハイパーリンクがうまくできない場合、"<file://〜>"で挟め。