Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5537 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50294】コードを調べるには にしもり 07/7/18(水) 18:54 質問[未読]
【50296】Re:コードを調べるには わさび 07/7/18(水) 19:12 発言[未読]
【50297】Re:コードを調べるには neptune 07/7/18(水) 20:33 回答[未読]
【50298】Re:コードを調べるには ichinose 07/7/18(水) 20:44 発言[未読]
【50301】Re:コードを調べるには にしもり 07/7/19(木) 9:16 お礼[未読]
【50294】コードを調べるには
質問  にしもり  - 07/7/18(水) 18:54 -
引用なし
パスワード
   こんにちは。

紫色のコード（ColorIndexというのですか）は39ですよね。
では、たとえば■というCharacterに対するコードは何番でしょうか。
たとえば★に対するコードは何番でしょうか。

また、それらばどうやって調べればよいのでしょうか。
どなたかご教示ください。
【50296】Re:コードを調べるには
発言  わさび  - 07/7/18(水) 19:12 -
引用なし
パスワード
   ▼にしもり さん：

こんなカンジでしょうか。
MsgBox Selection.Cells.Interior.ColorIndex


オマケで…
以前、自分の参考用に作ったコードですが、よかったら試してください。
====================================================
Sub COLOR_INDEX()

　'RO：行番号、CO：列番号、CIN：色番号
　　Dim RO As Byte, CO As Byte, CIN As Byte

　　CIN = 1
　　　
　　For RO = 1 To 7
　　　　
　　　　For CO = 1 To 8
　　　　　　
　　　　　　With Cells(RO, CO)
　　　　　　　　.Interior.ColorIndex = CIN
　　　　　　　　.Font.Size = 10
　　　　　　　　.Value = CIN
　　　　　　End With
　　　　　　　　
　　　　　　CIN = CIN + 1
　　　　　　
　　　　Next CO
　　　　
　　Next RO
　　　　
End Sub
【50297】Re:コードを調べるには
回答  neptune  - 07/7/18(水) 20:33 -
引用なし
パスワード
   ▼にしもり さん：
キャラクタコードの事なら
Asc 関数、AscW 関数
のHelpを見てください。

?asc("■")
とイミディエイトウィンドウに打ち込みEnterを押して下さい。
下に文字コードが返されます。
【50298】Re:コードを調べるには
発言  ichinose  - 07/7/18(水) 20:44 -
引用なし
パスワード
   こんばんは。

>キャラクタコードの事なら
>Asc 関数、AscW 関数
>のHelpを見てください。

ＪＩＳコードなら、ワークシート関数のＣＯＤＥ関数

例
セルＡ１に　★　を入力
セルＢ１に =code(a1) と指定すればＪＩＳコードが取得できます。
こういうコードはHEX表現（１６進数）するほうが私には馴染みです。
その場合は、=dec2hex(code(a1)) とすると１６進数で表示されます。
（但し、関数Dec2Hexを使うには、アドイン分析ツールが必要です）


というようにコード体系により色々あります。
【50301】Re:コードを調べるには
お礼  にしもり  - 07/7/19(木) 9:16 -
引用なし
パスワード
   ▼わさびさん、neptuneさん、　ichinose さん：

関数で調べられるのですね。
大変参考になります。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5537 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free