' 部署名をキーとしたDictionaryデータを作成する' 引数:EmployeeClassのCollection' 参照設定できた場合FunctionCreateDepartmentDictionary(ByValemployeeListAsCollection)AsDictionaryDimemployeeDataAsEmployeeClassDimlistAsCollectionDimdicAsDictionary' 参照設定できた場合Setdic=NewDictionary' 参照設定できた場合ForEach...
Sub Paste_OneRow() 'Copy and Paste Row Sheets("sheet1").Range("1:1").Copy Sheets("sheet2").Range("1:1") Application.CutCopyMode = False End SubSend EmailThis useful macro will launch Outlook, draft an email, and attach the ActiveWorkbook....
End Sub、End Function または End Property 以降には、コメントのみが記述できます クラス モジュールのパブリック プロシージャのパラメーターまたは戻り値、またはパブリックのユーザー定義型のフィールドとして使用できるのは、パブリック オブジェクト モジュールで定義されたパ...
Sub UsingTheHourFunction() Dim theHour As Integer theHour = Hour("2:14:17 AM") Debug.Print theHour End Sub結果は次のようになります。VBA Minute関数Minute関数を使うと、入力された時刻の分単位の値を返すことができます。 Minute 関数の構文は次のとおりです。
Main Sub main() '&h19までの制御文字を除いた、かつ、サロゲートペアでないすべてのUnicode文字を結合します。 For i = &h20& To &hFFFF& If &hD800& <= i And i <= &hDBFF& Then 'サロゲートペアの一部です。除外します。 ElseIf &hDC00& <= i And i <= &hDFFF& Then 'サ...
お役に立てば、また、ご指導等いただければ幸いです。実際のコード(要点)Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function GetTopWindow Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetParent Lib "user32...
'受け取った文字列のカンマをコロンに置き換える 'ダブルクォーテーションで囲まれているカンマは置き換えない Function replaceColon(ByVal str As String) As String Dim strTemp As String Dim quotCount As Long Dim l As Long For l = 1 To Len(str) 'strの長さだけ繰り返す strTemp ...
Sub SJIS判定() Dim i As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 4).Value = Asc(Cells(i, 1).Value) If isSJIS(Cells(i, 1).Value) Then Cells(i, 6).Value = "Shift_JIS" Else Cells(i, 6).Value = "環境依存" End If Next End Sub Function isSJIS(...
Sub CalculateAmount() Dim Quantity Quantity = Cells(2, 2).Value Dim UnitPrice UnitPrice = Cells(2, 2).Value Cells(2, 4).Value = Quantity * UnitPrice End Subそこで、8行目に「ブレークポイント」を設定してみます。操作方法指定した行で、プログラムの実行をいったん止めることができ...
OptionExplicitConstURL="https://www.googleapis.com/youtube/v3/"'ここにAPI KEYを入力ConstAPI_KEY="(API KEYを入力)"'ここにVideo IDを入力ConstVIDEO_ID="(Video IDを入力)"Subコメント取得_Click()CallGetYoutubeCommentEndSub' YouTube動画コメント全取得PublicSubGetYoutubeComment()DimrowAsInteg...