今日は10日に焼いた炭を取り出す予定であったが、
で、15日から始まる確定申告、
- もう済ませたという「つわもの」もおられる。
- 医療費控除の明細書を作ったという「つわもの」もおられる。
いささか焦って集計に着手した...
今年に備え‥‥
- 2015.03.10 町民税・県民税申告の手引きで、医療費控除の領収書は病院・薬局別に合計金額が必要であることを知った。
- 2015.03.17 来年の医療費控除を素早く集計したいので、町役場に行って医療費明細書（封筒）をもらってきた
- 2015.03.21 医療費控除を素早く行うために、マクロ家計簿77ver.1.29 を公開
と、準備したつもりであった。どうやら「積り」で終わったようだ...
ん〜ん、結局 Wordで仕上げてシマッタ！
明日は、Excelで仕上げられるよう‥‥ 努力しよう...
右図下段は、病院・薬局別 領収書番号 の一覧表。
税務署（税務課）から「領収書が探せない！」と文句を言われないための対応。
選択した通し番号を結合しクリップボードに送る（コピーする）Excel VBA
- Public Sub 選択した通し番号セルを結合しクリップボードに送る()
- '［参照設定］で［Microsoft Forms 2.0 Object Library」にチェックを入れないと文法エラーになる。
- Dim mbTitle As String
- Dim objData As DataObject
- Dim ctr As Long
- Dim s As String, ss As String
- Dim c As Variant
- mbTitle = "/" & ThisWorkbook.Name
- If Selection.Count = 0 Then
- MsgBox "セルが選択されていません。", vbCritical, mbTitle
- Exit Sub
- End If
- ss = "": ctr = 0
- For Each c In Selection
- s = Trim(c.Value)
- If s <> "" Then
- If Len(s) <> 7 Then
- MsgBox "通し番号の構成に不具合があります。" & vbCrLf & vbCrLf _
- & " ■通し番号＝" & s & vbCrLf & vbCrLf _
- , vbCritical, mbTitle
- Exit Sub
- End If
- s = Left(s, 4) & "-" & Mid(s, 5)
- If ss = "" Then ss = s Else ss = ss & "; " & s
- ctr = ctr + 1
- End If
- Next
- Set objData = New DataObject
- objData.SetText ss
- ' varCb = objData.GetText
- objData.PutInClipboard
- Set objData = Nothing
- MsgBox ctr & " 個の「通し番号」を結合し、クリップボードに送りました。", vbOKCancel, mbTitle
- End Sub
