Sub メール作成() Dim ファイル名 As StringDim 保存場所 As String 保存場所 = ThisWorkbook.Pathファイル名 = Sheets("Sheet6").Range("B1").Value Open 保存場所 & "\メール作成_" & ファイル名 & ".txt" For Output As #1 Print #1, Range("B2")Print #1…

FILTER関数で期間を絞る場合 =FILTER(A2:Q46,(Q2:Q46>=T1)*(Q2:Q46<=U1)*(G2:G46=T20),"データなし") '全体参照 '日付参照 '条件参照 =FILTER(Sheet1!dummy,(Sheet1!dummy[有効期限]>=A1)*(Sheet1!dummy[有効期限]<=B1)*(Sheet1!dummy[血液型]=C１),"データ…

www.sejuku.net

'クリップボードの文字列を取得して返す 'MSForms.DataObjectを使用 With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard GetCB = .GetText End With End Function