- ベストアンサー
Visual Basic Editorで書けない字
ワークシートには書けます。(コピペですが) =CHAR(254)で表示もされます。 数式にも文字列で使えます。 でも、Visual Basic Editor ではコピペすると?に化けてしまいます。 VBAコードの中で使用したいのですがどうすればよいのでしょうか?
- emaxemax
- お礼率100% (834/834)
- Excel(エクセル)
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 Cells(2, 3) = ChrW(254) Cells(2, 4) = ChrW(9745) とか Cells(2, 3) = ChrW(&HFE) Cells(2, 4) = ChrW(&H2611) みたいにも書けますね。 因みに、文字コードを採るには MsgBox AscW(Cells(2, 3)) MsgBox AscW(Cells(2, 4)) とか MsgBox "&H" & Hex(AscW(Cells(2, 3))) MsgBox "&H" & Hex(AscW(Cells(2, 4))) とか。 一応、Chr()関数やAsc()関数のヘルプには目を通しておいてください。
その他の回答 (1)
- maia55jp
- ベストアンサー率61% (327/535)
しばらくVBAをやってないので参考程度ですがEditor上ではシステム コード内の文字しか表示出来ず、エクセル上はUnicodeで表示みたい なので変換の必要があるみたいですね。 VBAからエクセルに表示させるサンプルです。 Sub Macro1() Range("A1").Select ActiveCell.FormulaR1C1 = StrConv(Chr(&HDE), vbFromUnicode) ' 254→16進数 DE End Sub StrConv 関数を参照 http://www.red.oit-net.jp/tatsuya/vb/string.htm#StrConv
お礼
有難うございます。 実際にやりたいことはVBAでワークシート上の文字を検索したいのです。 ためしに Sub test001() Dim x x = Chr(&HDE) ActiveSheet.UsedRange.Find(x, LookIn:=xlValues, LookAt:=xlPart).Select End Sub とやってみましたが、エラーになりました。
関連するQ&A
- Visual Basic Editor 開き
Visual Basic Editorについて。 エクセル2007画面から開発→Visual Basicと、毎回開いていますが、 シートを右クリックして、コードの表示 とでは、何か違うのでしょうか? VBA初心者です。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- 【EXCEL VBA】Visual Basic Editorについて
お世話になります。 EXCELで「Visual Basic Editor」を開くと、 左側に下記が表示されます。 Microsoft Excel Objects > Sheet1、Sheet2、Sheet3、ThisWorkBook フォーム > UserForm1 標準モジュール > Module1 クラス モジュール > Class1 Sheet1やUserForm1、Module1、Class1にそれぞれコードを 入力できますが、違い、使い分けについて教えてほしいです。 どれにコードを書いていけばいいか分からず困っています。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Visual Basic Editorのヘルプ
エクセル2000を使用し、マクロを作成していますが、 Visual Basic Editorのヘルプが表示されません。表示するには、Office2000ProのCD-ROMがやはり必要なのでしょうか?現在そのCDーROMがないので困っています。教えてください。
- ベストアンサー
- オフィス系ソフト
- Visual Basic Editor画面の整頓について
Visual Basic Editor画面が何かの拍子でグジャグジャになってしまいました。 元の画面にするにはどうしたら良いでしょうか? 元の画面とは左側に小さく上からVBAプロジェクト、プロパティ、その右にコードウィンドウ、下にイミディアトと並び、各ウィンドウが重なっていない状態です。 何かの拍子というのは恐らく誤ってプロジェクトウィンドウを横一直線に広げてしまったのが原因のように思えます。(定かではありません) よろしくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- EclipseのVisual Editorの表示について
Visual EditorでGUIを作成したのですが、その際に GUIの表示ビューを閉じて終了してしまいました。 後日それを編集しようと思ってEclipseでそのクラスのコードを 開いたのですが、GUIの表示ビューが表示されなくなりました。 どうしたら、再びGUIの表示ビューを出せるのでしょうか? 単純な質問ですが、よろしくお願いします。
- ベストアンサー
- Java
- Visual Basic Editorの画面の文字について教えてください
Visual Basic Editorの画面で左側上に表示される、プロジェクトエクスプローラと、左下に表示されるプロパティウィンドウの文字が見づらくて困っています。書体をMSPゴシックか明朝のようなものに変えたいのですが。今は、筆で書いた文字が横につぶれたようなほとんど判読できないような書体なんです・・・
- ベストアンサー
- オフィス系ソフト
- Visual Basic Editorについて
Visual Basic Editorを起動させ、挿入→ユーザーホームを選択し、ユーザーホームを表示させてラベルを作成し、プロパティーウインドウの項目別タブを選択し、Fontサイズを変更しようとすると、いきなりCPU使用率が100%になり、固まってしまいます。この現象について対処の仕方などわかる方教えて下さい。お願いします
- 締切済み
- Windows XP
- (初心者)Visual Basic Editor の内容?が表示されません
VBAの内容をちょこっと変更するぐらいのこと (セルの場所をかえる、とか表示されるコトバをかえるとか)がやれる程度のレベルです。 ツール→マクロ→Visual Basic Editorでひらいても 内容が表示されません。 でもマクロは生きていて、ちゃんと実行されます。 内容を少し変更したいのですが、 表示されないのでどうしていいかわかりません。。。 きっと説明が足りないと思うので、 その都度補足させていただきます。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ASCIIコードとVisual Basic Editorのフォームについて
仕事上、必要な為に攻略本などを片手にVisual Basic Editorを我流でプログラミングしている全くの素人です。 現在はVisual Basic Editorにフォームを挿入しテキストボックスを作成して、テキストボックスに入力した文字をSheet上の指定のセルに表示するようなプログラミングをしています。 しかし、ローマ字入力の場合は全く問題ないのですが、かな入力の場合( )カッコなど英数キーを一度押下しなければ入力できない文字については、テキストボックスのIMEコード設定をカナ入力の6番に設定している為、入力する事ができません。 1.テンキーの"/"、"*"キーに"("、" )"を割り当ててしのいでいます。一文字入力するごとに文字コードをASC関数で調査し"/"、"*"キーに該当する場合は「"それ以前に入力していた文字"+"("」を入力するプログラムにしています。しかし、この場合マウスでカーソルをインサートさせて途中入力した場合、カッコ以外の文字が入力される為完全とは言えません。また、カッコのみを入力するように指定すると、それまでテキストボックスに入力していた文字が消去されカッコのみが入力されてしまいます。良いプログラミングがありましたら、ご教授願います。 2.上記で英数キーを押下するとIMEコードが変換されるようにするのが良い方法だと思うのですがヘルプで検索してもASCIIコードが分からないので断念しました。キャリッジリターンは「13」NumLockは「144」までは分かったのですが文字キー以外のASCIIコードが掲載されている書物や方法がありましたら教えて下さい。宜しくお願い致します。
- 締切済み
- Visual Basic
- vimエディタでのvisualモードでヤンクした文字列を使って置換したい
いつもお世話になっています。 vimエディタで、vキーを押すと、visualモードになって、範囲選択ができるようになります。 ここで、範囲選択(選択された範囲は反転表示される)をして、yを押すと、範囲選択した領域をヤンクできます。 これを、:%s/ヤンクした文字列/ヤンクした文字列を修正した文字列/g として置換するのに使いたいのですが、どのようにすれば使用することが出来るのでしょうか? バッファを使って、"Ayとして、バッファAにヤンクして、 :%s/'A/修正後の文字列/g としてみましたがダメでした。 修正前後の文字列がとても長いのに、修正する点は一部だけだったりするので、visualモードでヤンクしたものを使いたいと思っています。 マウスで反転表示させて、:%s/マウス右クリックで貼り付け とすればいいのですが、マウスを使わない方法はないのでしょうか? 有識者の方、よろしくお願いいたします。
- ベストアンサー
- その他([技術者向] コンピューター)
お礼
いつもお世話様です。 ChrW 関数は初めて見ました。 おかげさまで以下のコードが出来ました。 期待通りの動きをしてくれました。 ありがとうございました!! Sub test002() Dim Rng As Range, c As Range Dim firstAddress As String, x As String x = ChrW(254) Set Rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23) If Rng Is Nothing Then Exit Sub With Rng Set c = .Find(x, LookIn:=xlFormulas, LookAt:=xlPart) If Not c Is Nothing Then firstAddress = c.Address Do Debug.Print c.Address & " : " & c.Value & " : " & c.Formula c.Font.Name = "Wingdings" Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop Until c.Address = firstAddress End If End With End Sub