一見黒（ColorIndex1) に見えるフォントが実は-4105という得体のしれない値を示していた。
Sub Macro2()
Dim i As Integer
For i = 9 To 50
If Cells(i, 2).Font.ColorIndex = -4105 Then Cells(i, 12).Value = "×"
Next i
End Sub
ついでにこれも。
MsgBox Range("b11").font.ColorIndex
登録:
コメントの投稿 (Atom)
ダイの大冒険→キテレツ大百科（藤田淑子）へのオマージュ？
ダイの大冒険を読み返していて一つのセリフが目に止まった。 「ゴメちゃん・・・！ さよならは 言わないよ・・・」 （第335話「世界が輝く時」の巻より） これは・・・キテレツ大百科の最終回のセリフによく似ている！ 「コロ助、さよならは言わないからね！」 （第331話（最終話）「愛の...
-
あまりの忙しさに2日も更新できなかった。こう協力体制がない状態では外にセミナーを受けにいくこともできないな・・・。 レポートをまとめているときに、「見出し１」など書式を設定しても見出しマップに表示されない箇所があることに気づいた(目次作成には反映される）。 これを解決するには、表...
-
週刊少年ジャンプでわずか10週でその生命を全うした 巻来功士「メタルK」 その有名な最終ページ。 見開きで大量の人間兵器（ウェポノイド）がKと宇田川を待ち構える。 高みの見物の神宮寺大佐・・・ 俺たちの戦いはこれからだ！エンドである。 そして可能性を感じるのはこ...
0 件のコメント:
コメントを投稿