[過去ﾛｸﾞ] Excel VBA 質問スレ Part82 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

847(2): 05/26(月)22:59 ID:Eh03XDLb(1)調 AAS
セルから機種依存文字を直接拾ってくるのは難しいですか？

例えば☐(unicode:2610)が入ってるセルをクリックすると☑(unicode:2611)に書き換える、みたいなのを実装する場合、
if(Range("A1").text="☐")then
だとRange("A1").textでセルの文字は取得できませんよね？
（もちろん「="☐"」で直接比較することもできませんが）

どうにかしてセルの機種依存文字を拾ってきてその種類を判定することは可能でしょうか？

---

848(1): 05/26(月)23:15 ID:MWZ/4kNq(1)調 AAS
>>847
Hex(WorksheetFunction.Unicode(Range("A1")))

---

849: 05/27(火)15:49 ID:j5Gfr/Ar(1)調 AAS
>>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

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.037s