|
▼Contact さん:
>ほとんどVBAがわからない初心者です。お力をお貸しください。
>
>1.A列に「消費税」という文字を抽出するまで、印刷を禁止する。
>2.A列に「消費税」という文字を抽出するまで、G15も文字を赤にする。抽出したら黒にする。
>出来れば、抽出したら、「消費税」と入力した4つ隣りのセル値をG15に反映させる。
>(できれば、G15のセルの内容は「="うち消費税額"&"(\"&○○&")"」○○に
>4つ隣りのセル値が入るとすごく助かります)
こんな感じでしょうか。^d^
下記コードをThisWorkbookモジュールに貼り付けてみてください。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim R As Range
With ActiveSheet
Set R = .Range("A:A").Find(what:="消費税", LookIn:=xlValues, lookat:=xlPart)
If R Is Nothing Then
.Range("G15").Font.Color = vbRed
Cancel = True
Else
.Range("G15").Font.Color = vbBlack
End If
End With
Set R = Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim R As Range
Set R = Intersect(Target, Range("A:A"))
If R Is Nothing Then Exit Sub
Range("G15").Formula = "=""うち消費税額(\""&" & R.Offset(, 4).Address & "&"")"""
End Sub
|
|