[過去ﾛｸﾞ]
Excel VBA 質問スレ Part82 (1002ﾚｽ)
Excel VBA 質問スレ Part82 http://mevius.5ch.net/test/read.cgi/tech/1737657075/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
847: デフォルトの名無しさん [sage] 2025/05/26(月) 22:59:03.14 ID:Eh03XDLb セルから機種依存文字を直接拾ってくるのは難しいですか？ 例えば☐(unicode:2610)が入ってるセルをクリックすると☑(unicode:2611)に書き換える、みたいなのを実装する場合、 if(Range("A1").text="☐")then だとRange("A1").textでセルの文字は取得できませんよね？ （もちろん「="☐"」で直接比較することもできませんが） どうにかしてセルの機種依存文字を拾ってきてその種類を判定することは可能でしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1737657075/847
848: デフォルトの名無しさん [sage] 2025/05/26(月) 23:15:54.66 ID:MWZ/4kNq >>847 Hex(WorksheetFunction.Unicode(Range("A1"))) http://mevius.5ch.net/test/read.cgi/tech/1737657075/848
849: デフォルトの名無しさん [sage] 2025/05/27(火) 15:49:48.18 ID:j5Gfr/Ar >>847 >Range("A1").textでセルの文字は取得できませんよね？ 取得はできる。ＶＢＥで使えない文字だからソースに直接その文字を書けないだけ Dim CHECK_ON As String: CHECK_ON = ChrW(&H2610) Dim CHECK_OFF As String: CHECK_OFF = ChrW(&H2611) If Range("A1").Value = CHECK_ON Then Range("A1").Value = CHECK_OFF Else Range("A1").Value = CHECK_ON End If http://mevius.5ch.net/test/read.cgi/tech/1737657075/849
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.038s