Dim gazou As String gazou = ThisWorkbook.Path & "\gif\gazou.gif" Image1.Picture = LoadPicture(gazou)
オートフィルタ
'オートフィルタで絞り込み、必要列だけデータを取得する。 searchData = "*条件を含む*" wsh.AutoFilterMode = False 'オートフィルタ解除 wsh.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=searchData Set targetRange = wsh.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible) For Each c In targetRange '1行目以外かつ5列目(タイトル行以外の指定データ列) If c.Row > 1 And c.Column = 5 Then getData = c.Value End If Next c Set targetRange = Nothing
Select Case文の使い方メモ
Select Case文は上から順に条件を確認し、一致したところで終わる。
基本編
Select Case aaa Case "A" Case "B" Case Else End Select
応用編
Select Case True Case aaa Like "*A*" Case aaa Like "*B" Case Else End Select
ブックのパスワード解除
On Error Resume Next SendKeys "{ESC}" Dim wb As Workbook Set wb = Workbooks.Open(fileName:=target_path, Password:="Password") If ActiveWorkbook.Name = FileName Then Debug.Print "開きました。" End If On Error GoTo 0 Set wb = Nothing
サービスを起動するバッチファイル
@echo off echo. echo ============================================================ echo サービスSQLServerを起動します。 echo. echo 本バッチファイルは管理者権限で実行して下さい。 echo ============================================================ echo. pause echo. echo. echo 処理を開始しました。処理が終了すると本ウィンドウは終了します。 echo. rem ■サービスを起動 net start "SQL Server (SQLEXPRESS)"
※メモ帳で上記をコピペし、拡張子.batで保存。
管理者権限で実行する方法は、右クリックすれば分かる。