| |
初めての投稿ですので、不慣れな点はご了承願います。
検索してみましたが、探しきれなかった為、投稿させていただきました。
標記の件ですが、以下のとおりです。
「A」ブックの「A0」シートの「(261, 37)」に153:00、
「B」ブックの「B0」シートの「(40, 14)」に152:00という合計時間が
特定のExcelシート上に記載されています。
そこで、以下の式を作成し、メモ帳に出力させようとしています。
↓↓↓↓↓↓ここから↓↓↓↓↓↓
Option Explicit
Sub 確認()
Dim strVError As String
Dim wb1 As Workbook
Dim ws2 As Worksheet
Dim wb3 As Workbook
Dim ws4 As Worksheet
Set wb1 = Workbooks.Open("A")
Set ws2 = wb1.Worksheets("A0")
Set wb3 = Workbooks.Open("B")
Set ws4 = wb3.Worksheets("B0")
strVError = "合計確認:"
If ws4.Cells(261, 37).Value = ws2.Cells(40, 14).Value Then
Else
strVError = strVError & "A合計(" & ws4.Cells(261, 37).Value & ")," & "B合計(" & ws2.Cells(40, 14).Value & ")"
End If
wb1.Close savechanges:=False
wb3.Close savechanges:=False
If strVError = "合計確認:" Then
strVError = ""
Else
strVError = "※AとBで合計が不一致になっています。A合計とB合計を見直してください｡ " & vbCrLf & strVError
End If
Dim CB As New DataObject
Dim ret As Long
CB.SetText strVError
CB.PutInClipboard
ret = Shell("Notepad.Exe", vbNormalFocus)
AppActivate ("無題 - メモ帳")
CreateObject("Wscript.Shell").SendKeys "^v"
End Sub
↑↑↑↑↑↑ここまで↑↑↑↑↑↑
上記を実行したところ、以下のように出力されます。
--------------------------------------------------------
※AとBで合計が不一致になっています。A合計とB合計を見直してください｡
合計確認:A合計(6.33333333333333),B合計(6.375)
--------------------------------------------------------
上記出力結果を、Excel上表示のように以下のとおり、
出力したいと考えております。
--------------------------------------------------------
※AとBで合計が不一致になっています。A合計とB合計を見直してください｡
合計確認:A合計(153:00),B合計(152:00)
--------------------------------------------------------
そこで、以下式にも置き換えて実施しましたが、以下の通りとなってしまいます。
strVError = strVError & "A合計(" & ws4.Range("AK261").NumberFormatLocal = "[h]:mm" & ")," & "B合計(" & ws2.Range("N40").NumberFormatLocal = "[h]:mm" & ")"
--------------------------------------------------------
※AとBで合計が不一致になっています。A合計とB合計を見直してください｡
False
--------------------------------------------------------
どなたか、解決策をご教授いただけないでしょうか。
宜しくお願い申し上げます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
