プログラミング学習メモ -8ページ目

プログラミング学習メモ -8ページ目

ホームピグアメブロ

芸能人ブログ人気ブログ

07May
- VBA　セル数式のコピペ
  セル数式のコピペ　絶対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 絶対参照　D4と同じ数式 Range("D5") = Range("D4").FormulaEnd Sub実行結果セル数式のコピペ　相対参照Sub test1()’　セル数式のコピペ Range("D4") = "=C4*B4" ' 相対参照　D5に適用した数式 Range("D5") = Range("D4").FormulaR1C1End Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　セルに数式を入力・取得』セルに数式を入力するValueプロパティによる設定Sub test1() Range("G3").Value = "=SUM(B3:F3)"…ameblo.jp『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
30Apr
- VBA　Space関数で一定数の空白を追加
  Space関数で一定数の空白を追加Sub test1()’　Space関数で一定数の空白を追加　　MsgBox "|" & Space(5) & "|：5スペース分"End Sub構文 Space(数値)実行結果Sub test2()’　Space関数で数字ピラミッド作成 Dim i As Long Dim n As Long Dim xlCnt As Long Dim MyStr As String n = 9 '揃えいたい桁数(9にする For i = 1 To 8 ' 1～８行までループする 'A列の数字の文字数を取得 xlCnt = Len(Cells(i, 1)) 'A列の数値と(9-文字数)分をスペース追加 MyStr = Cells(i, 1) & Space(n - xlCnt) 'セルに出力 Cells(i, 2) = "'" & MyStr Next iEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
23Apr
- VBA　複数列データを一括重複削除
  複数列を一括重複削除Sub test()’　複数列データを一括重複削除 ActiveCell.CurrentRegion.Select Selection.RemoveDuplicates Columns:= _ Array(1, 2, 3, 4), Header:=xlYesEnd SubArray(1, 2, 3, 4)　は、4列ともに重複する場合、それを削除する。1列と3列だけ重複する場合、Array(1, 3)にすれば良いです。実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
16Apr
- VBA　AutoFillメソッドによる曜日一括入力
  AutoFillメソッドによる曜日一括入力Sub test()’　AutoFillメソッドによる曜日一括入力　(数式を一切利用せず With Range("A2") .Value = "2024/4/16"　　’　任意の日付を入れる .AutoFill Destination:=Range("A2:A31") .Offset(, 1) = "火"　　　　　’　上記日付に対応する曜日を入れる .Offset(, 1).AutoFill Destination:=Range("B2:B31") End WithEnd Sub実行結果AutoFillとResizeと組み合わせた場合Sub test1()’　AutoFillメソッドによる曜日一括入力　(数式を一切利用せず With Range("A2") .Value = "2024/4/1" .AutoFill Destination:=.Resize(30, 1) With .Offset(, 1) ' 右隣の列を取得 .Value = "月" .AutoFill Destination:=.Resize(30, 1) End With End WithEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 連続データの作成　AutoFillメソッド』連続データの作成　AutoFillメソッド構文Range.AutoFill(Destination, Type)Sub test1()　　’　12ヶ…ameblo.jp『VBA セル選択範囲の変更 Resizeプロパティ』セル選択範囲の変更 Resize構文Range.Resize(RowSize, ColumnSize)日本語訳Rangeオブジェクト. Resize(変…ameblo.jp『VBA セル入力規則の設定（Validation）』セル入力規則の設定（Validation）構文Validation.Add(Type, AlertStyle, Operator, Formula…ameblo.jp
09Apr
- VBA　WorksheetFunction関数Cleanで改行削除
  WorksheetFunction関数Cleanで改行削除Sub test()’　Clean関数で改行削除 Dim MyStr As String MyStr = "ほ" & vbCrLf & "う" & vbCrLf & "れ" & _ vbCrLf & "ん" & vbCrLf & "そ" & vbCrLf & "う" Debug.Print MyStr MyStr = WorksheetFunction.Clean(MyStr) Debug.Print MyStrEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　WorksheetFunction関数で乱数1個ずつ生成』WorksheetFunction関数で乱数生成Sub test()’　重複しない乱数1個ずつ生成 Dim xlMini As Long …ameblo.jp『VBA 乱数を自動作成する』Rnd関数Rnd関数で乱数生成構文式Int(Rnd()*(最大値-最小値+1）+最小値）乱数を自動作成するSub test1()’　1から3まで…ameblo.jp『VBA　1から９まで重複しない乱数自動生成』1から９まで重複しない乱数自動生成Sub test() Const xlStart As Long = 1 Dim xlEnd As Lon…ameblo.jp『VBA　乱数でおみくじを作る』乱数でおみくじを作るSub test()’　乱数でおみくじを作る Const xlMini As Long = 0 Const xlMax …ameblo.jp
02Apr
- VBA　WorksheetFunction関数で乱数1個ずつ生成
  WorksheetFunction関数で乱数生成Sub test()’　重複しない乱数1個ずつ生成 Dim xlMini As Long Dim xlMax As Long Dim i As Long Dim myNum As Long Dim xlCount As Long xlMini = 3　　　’　最小値 xlMax = 13　　’　最大値 With Sheets(1) i = .Cells(Rows.Count, 1).End(xlUp).Row + 1 '最終行+1 　　’　乱数取得 myNum = WorksheetFunction.RandBetween(xlMini, xlMax) 　　’　取得済乱数個数（A列数字の個数） xlCount = WorksheetFunction.CountIf(.Range("A1:A" & i), myNum) If xlCount = 0 Then .Cells(i, 1).Value = myNum .Cells(5, 3) = myNum End If End WithEnd Sub実行結果― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA 乱数を自動作成する』Rnd関数Rnd関数で乱数生成構文式Int(Rnd()*(最大値-最小値+1）+最小値）乱数を自動作成するSub test1()’　1から3まで…ameblo.jp『VBA　1から９まで重複しない乱数自動生成』1から９まで重複しない乱数自動生成Sub test() Const xlStart As Long = 1 Dim xlEnd As Lon…ameblo.jp『VBA　乱数でおみくじを作る』乱数でおみくじを作るSub test()’　乱数でおみくじを作る Const xlMini As Long = 0 Const xlMax …ameblo.jp
26Mar
- Python基礎　joinメソッドで文字列を連結
  joinメソッドで文字列を連結# joinメソッドで文字列を連結>>>S ='day','night'# 区切らない>>>''.join(S)'daynight'# 半角スペースで区切る>>>' '.join(S)'day night'# カンマ(，)で区切る>>>','.join(S)'day,night'# プラス(+)で区切る>>>'+'.join(S)'day+night'#から始まるのはコメントとなります。人間が読むもので、プログラム実行時、コンピューーに無視されます。青字の部分、>>>の後ろは、実行命令で、その次の行は、実行結果となります。実行結果関連記事『Python基礎　for文で辞書を繰り返し出力』for文で辞書を繰り返し出力IDLE Shell画面で実行結果#myDicという辞書を作成myDic = {'もも' : 3 ,'りんご' …ameblo.jp『Python基礎　for文による繰り返し』for文による繰り返しIDLE Shell画面で実行結果#myPetというリストを作成myPet = ['いぬ', 'いんこ', 'ねこ']…ameblo.jp『Python とは?』　　今日から、人気プログラミング言語Pythonについて、少しずつ紹介していきたいと思います。Pythonとは　　Pythonは、オランダ人のグイド・ヴァン…ameblo.jp『Python プログラムの実行方法』Python プログラムの実行方法Pythonのプログラムの実行方法は、主に3種類があります。インタラクティブシェル（基本対話モード）統合開発環境での…ameblo.jp
19Mar
- VBA　フォルダー内ファイルの更新日時を一括取得
  FileSystemObjectでフォルダー内ファイルの更新日時を一括取得Sub test()’　FileSystemObjectでフォルダー内ファイルの更新日時を一括取得Dim FolderPath As StringDim FSO As ObjectDim FileName As ObjectDim FileTime As StringDim fileName2 As String'ファイルシステムオブジェクトをセットするSet FSO = CreateObject("Scripting.FileSystemObject")FolderPath = "C:\Users\Admin\Desktop\test" 'フォルダを指定する'取得したフォルダ内のファイルをループFor Each FileName In FSO.GetFolder(FolderPath).Files ' パスを除いたファイル名を取得 fileName2 = Replace(FileName, FolderPath & "\", "") FileTime = FileDateTime(FileName) Debug.Print fileName2 & "　:" & FileTime NextEnd Sub― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　FileDateTime関数でファイルの更新日時を取得』FileDateTime関数でファイルの更新日時を取得Sub test()’　FileDateTime関数でファイルの更新日時を取得 Dim m…ameblo.jp『VBA 文字列の置き換え　Replace関数』文字列の一部を置換するには、Replace関数がよく使われます。きょうは、その基本的な使い方を見てみましょう。文字列の置き換え(Replace関数)構文R…ameblo.jp『VBA　ファイルの存在を確認』ファイルの存在を確認Sub test() 'ファイルの存在を確認 '（VBEで[ツール]⇒ [参照設定]⇒ [Microsoft Scrip…ameblo.jp『VBA　Killステートメントでフアイルを削除』Killステートメントでフアイルを削除Sub test()’　Killステートメントでフアイルを削除 Dim filePath As String…ameblo.jp『VBA DateSerial関数日付データを求める　』実務上では、月末日付や翌月末日付を求めることが多いため、今日は、その求め方を紹介しましょう。DateSerial関数で日付データを求める構文DateSer…ameblo.jp『VBA　現在時刻から年月日時分（yyyymmddhhmm）を取得』実務では、ファイル自動保存する際、ファイル名に年月日時分（yyyymmddhhmm）をつけて保存することがよくあったりします。今日は、Format関数を使って…ameblo.jp
12Mar
- VBA　FileDateTime関数でファイルの更新日時を取得
  FileDateTime関数でファイルの更新日時を取得Sub test()’　FileDateTime関数でファイルの更新日時を取得 Dim myFileTime As Date myFileTime = FileDateTime("D:\Datebank\test\Sample01.xlsx") Debug.Print myFileTimeEnd Sub実行結果FileDateTime構文：FileDateTime(PathName)― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　Killステートメントでフアイルを削除』Killステートメントでフアイルを削除Sub test()’　Killステートメントでフアイルを削除 Dim filePath As String…ameblo.jp『VBA DateSerial関数日付データを求める　』実務上では、月末日付や翌月末日付を求めることが多いため、今日は、その求め方を紹介しましょう。DateSerial関数で日付データを求める構文DateSer…ameblo.jp『VBA　生年月日から年齢を自動計算』生年月日から年齢を自動計算するSub test() '年齢自動計算 Dim xlBirthD As Variant '誕生日 …ameblo.jp『VBA　現在時刻から年月日時分（yyyymmddhhmm）を取得』実務では、ファイル自動保存する際、ファイル名に年月日時分（yyyymmddhhmm）をつけて保存することがよくあったりします。今日は、Format関数を使って…ameblo.jp
05Mar
- VBA　MonthName関数で数字を月名に指定
  MonthName関数で数字を月名に指定Sub test()’　MonthName関数で数字を月名に指定 Dim i As Integer For i = 1 To 12 Cells(i + 1, 1) = i Cells(i + 1, 2) = MonthName(i) Next iEnd Sub実行結果MonthName関数の構文：MonthName(month[,abbreviate])[,abbreviate]は、省略可能です。既定値の偽 (False) が使用され,真(True)に設定した場合、「12月→12」のように数字のみ表示されます。また、月数は1-12以外の数値を指定するとエラーとなりますのでご注意ください。― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る参考記事『VBA　Killステートメントでフアイルを削除』Killステートメントでフアイルを削除Sub test()’　Killステートメントでフアイルを削除 Dim filePath As String…ameblo.jp『VBA DateSerial関数日付データを求める　』実務上では、月末日付や翌月末日付を求めることが多いため、今日は、その求め方を紹介しましょう。DateSerial関数で日付データを求める構文DateSer…ameblo.jp『VBA　生年月日から年齢を自動計算』生年月日から年齢を自動計算するSub test() '年齢自動計算 Dim xlBirthD As Variant '誕生日 …ameblo.jp『VBA　現在時刻から年月日時分（yyyymmddhhmm）を取得』実務では、ファイル自動保存する際、ファイル名に年月日時分（yyyymmddhhmm）をつけて保存することがよくあったりします。今日は、Format関数を使って…ameblo.jp