Excel VBA質問箱 IV

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

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


5527 / 13645 ツリー ←次へ | 前へ→

【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を見てください。

JISコードなら、ワークシート関数のCODE関数


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


というようにコード体系により色々あります。

【50301】Re:コードを調べるには
お礼  にしもり  - 07/7/19(木) 9:16 -

引用なし
パスワード
   ▼わさびさん、neptuneさん、 ichinose さん:

関数で調べられるのですね。
大変参考になります。
どうもありがとうございました。

5527 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free