Excel VBA：円記号の入った「NumberFormatLocal」の値を比較したい
以下の例で文字「バックスラッシュ」はVBAでは「円記号」で表示されています。
セルに設定された書式Selection.NumberFormatLocalの値が文字列「"\#,##0;\-#,##0"」に等しいか調べたいがうまく比較できない。
環境、OS:Windows10, Windows8、Excel:2010,2013
例 セル”A1”に数値「123456」を入力
“A1”に手作業で通貨書式を設定
「セルの書式設定」－＞「表示形式」－＞「通貨」－＞「\-1,234」（黒色：デフォルト）
マクロの記録は
Sub Macro1()
Range("A1").Select
Selection.NumberFormatLocal = "\#,##0;\-#,##0"
End Sub
“A1”に設定された書式が通貨書式であるかをVBAで確認するために
プロシジャー test1 を作り、実行すれば”No”になる。
“Yes”を予想してしまうが、”No”になる理由と解決方法が知りたい。
Sub test1()
Dim strTuka As String
strTuka = "\#,##0;\-#,##0"
Range("A1").Select
MsgBox Selection.NumberFormatLocal
If Selection.NumberFormatLocal = strTuka Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
どなたか、アドバイスをお願いします。
何度フォントで「既定値に設定」を行っても既定値になってくれません。
いらっときたので「この文書だけ」じゃなく「Normal～～すべての文書」を対象にしましたが、だめでした。この場合新規文書に関してはデフォルトの設定になっていました。しかし、肝心の既定値になってほしい文書が何度設定しても保存して開きなおしてもなってくれません。
今、既存の文書をもとに、新しい文書を作ろうとしています。しかし、日本語用のフォントがMS明朝で、英数字部分が「（日本語用と同じフォント）」になっており、新たに打つ文字が何でもかんでもMS明朝になってしまうので、英数字をTimes New Romanに変えようと思いました。そこで、フォントで「英数字用のフォント」欄をTimes New Romanにして「既定値に設定」、「この文書だけ」を選択しました。しかし、直後にフォントを確認するとすでに「英数字用のフォント」が「（日本語用と同じフォント）」に戻っています。当然打ってもMS明朝です。自分のやり方に間違いがあるのでしょうか？なお、OSはwindows7，Officeは2010です。
既存の文書には面倒なヘッダーを含む様々な設定があり、それを保持したいので、新規文書にコピーペーストするのは避けたいと思います。何か解決方法がわかる方がいらっしゃいましたらお知恵を拝借いただければと思います。よろしくお願いいたします。
日報作成をマクロで自動化する方法を探しています。
とりあえずできたのは、
１：「1日」シートを作り、セルA1には日付「2015年9月1日」を入力。
２：「1日」シートをコピーして「2日」シートを作成し、セルA1の日付を「2015年9月2日」に変更。
３：２の作業を「31日」シートまで繰り返す。
というところまでです。
（１つのワークブックに、「1日」～「31日」までのシートがある状態です。）
これに加えて、たとえば、セルB1に当日売上を入力すると、
セルB2に月累計が出るようにしたいのです。
試してみたのは、「1日」シートのセルB2に「＝B1」と入力し、
「2日」～「31日」シートのB2に
=INDIRECT(TEXT(A1-1,"1日")&"!B2")+B1
と入力してみましたが、これだと月累計ではなく「1日」シートのみとの合計になってしまい、
「3日」～「31日」シートでは、数式内のシート名"1日"の部分を
手動で更新していかなければなりません。
数式内のシート名を翌日の日付に変更しながらシートをコピーする方法はありますか？
または、
B2＝前日シートのB2＋当日シートのB1
となる数式は無いでしょうか？？
ちなみに今マクロで使っているのは下記のコードです。
———————————
Sub 日報作成()
Dim firstDay As Date
firstDay = InputBox("日報", "最初の日付を指定", Date) '最初のシートの日付を指定
Worksheets("1日").Range("A1") = firstDay
Dim i As Integer
For i = 1 To 30
Worksheets("1日").Copy after:=Worksheets(Worksheets.Count) '1日のコピーを末尾に作る
Worksheets(Worksheets.Count).Name = i + 1 & "日" 'コピーしたシートの名前を変える
Range("A1").Value = DateAdd("d", i, firstDay) '日付を一日ずつ足していく
Next i
End Sub
―――――――――――
似たようなデータを毎月大量に作るので、どうにか効率化できたらと思っています。
ちなみに、わたしはプログラミングCを少しかじったことがありますが、
マクロを使うのは初で、上記もネットで見つけたコードを少しいじった程度です、、
詳しい方がいらしたら教えてください。
よろしくお願いいたします。
セルA1、B1、C1をダブルクリックすると各セルの値が+1ずつ増える
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$B$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$C$1" Then Target.Value = Target.Value + 1: Cancel = True
End Sub
というマクロを使用致しておりますが、これに追加で
セルA1をダブルクリックした時に、A1と同時にセルC1も＋１増やせる
方法があれば教えて頂けると幸いです。
宜しくお願い致します。
