質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.54%

  • VBA

    1779questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1521questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

VBAで機種依存文字を含んだ文字列をifの条件とする

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 1,098

mochisio

score 4

 前提・実現したいこと

原セル(プルダウン方式にしている)からコピー&ペーストしても文字化けして完全に一致しないのか、r7の値が確実に0になります。
If文の条件に㎠を使いたいのですが、どうすればいいですか?

 該当のソースコード

?の所に㎠を入れる予定です。

If Range("C7") = "(0)なし" Then
  r7 = 0
  ElseIf Range("C7") = "(6)4?未満" Then
  r7 = 6
  ElseIf Range("C7") = "(9)4?以上16?未満" Then
  r7 = 9
  ElseIf Range("C7") = "(12)16?以上36?未満" Then
  r7 = 12
  ElseIf Range("C7") = "(24)36?以上" Then
  r7 = 24
End If

 補足情報(FW/ツールのバージョンなど)

microsoft Visual Basic for Aplication 7.0を使用しています。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+3

解決済みですが、参考までに。

VBAのString型は、Office2000以降は Unicodeになってます。
ところが、VBE(コード入力画面)は、いまだに Shift-JIS のままなのです。

ですので、㎠ のようなUnicodeにはあるがShift-JISない文字は、入力しても?に文字化けします。

解決済みの回答では、独自の関数を使って解決していますが、標準でUnicode文字を表現する関数が用意されてます。

例えば、 ㎠ を表現するには、ChrW関数を使って、ChrW(13216) とします。
13216 という文字コードを調べるには、AscW関数を使います。
A1セルに ㎠ を入力して、イミディエイトウィンドウで、
?AscW(Range("A1"))
と入力してEnterキーを押せば 13216 が出力されます。

また、質問のコードですが、同じセルを何度も参照するのは無駄なので,Select Case を使うとシンプルになります。

    Dim cm2 As String    
    cm2 = ChrW(13216)

    Select Case Range("C7").Value
    Case "(0)なし" 
        r7 = 0
    Case Replace("(6)4?未満", "?", cm2) 
        r7 = 6
    Case Replace("(9)4?以上16?未満", "?", cm2) 
        r7 = 9
    Case Replace("(12)16?以上36?未満", "?", cm2) 
        r7 = 12
    Case Replace("(24)36?以上", "?", cm2) 
        r7 = 24
    End Select

別案

対象文字列と結果を比べてみると、( )内の数値を取り出しているようなので、下記のようなコードでもよさそうです。

    Dim s As String
    s = Range("C7").Value

    If s Like "(#)*" Then
        R7 = Val(Mid(s,2,1))
    ElseIf s Like "(##)*" Then
        R7 = Val(Mid(s,2,2))
    End If

補足

thom.jpさんの回答のリンク先でNBSP(ノーブレークスペース)を通常の半角スペースに変換する自作関数が紹介されていますが、NBSPは、ChrW(160)で表現できます。ということで、
Replace(Range("A1").Value, ChrW(160)," ")
で変換できます。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/07/18 22:06

    知りませんでした!すばらしい。
    早速ブログ追記します。

    キャンセル

checkベストアンサー

+2

Byte型配列を利用すると、実現できます。
以下を試してみてください。

 サンプル

Sub Main()
    If Range("C7") = "(0)なし" Then
      r7 = 0
      ElseIf ReplaceCM2(Range("C7")) = "(6)4<CM2>未満" Then
      r7 = 6
      ElseIf ReplaceCM2(Range("C7")) = "(9)4<CM2>以上16<CM2>未満" Then
      r7 = 9
      ElseIf ReplaceCM2(Range("C7")) = "(12)16<CM2>以上36<CM2>未満" Then
      r7 = 12
      ElseIf ReplaceCM2(Range("C7")) = "(24)36<CM2>以上" Then
      r7 = 24
    End If
    MsgBox r7
End Sub

Function ReplaceCM2(target_string) As String
    Dim CM2(0 To 1) As Byte
    CM2(0) = 160
    CM2(1) = 51
    ReplaceCM2 = Replace(target_string, CStr(CM2), "<CM2>")
End Function

 解説

VBAにおけるString型は、内部ではバイト型配列として扱われます。2バイトで1文字です。

A1セルに㎠を入力して以下のコードを試すと、0バイト目と1バイト目の数値が取れますので、あとはそのバイトを使ってバイト型配列で文字"㎠"を作成し、"<CM2>"に変換させたのが上記のコードです。

Sub FindBytes()
    Dim targetChar As String
    targetChar = Left(Range("A1"), 1)
    Dim bytes() As Byte
    bytes = targetChar
    Dim i As Long
    For i = LBound(bytes) To UBound(bytes)
        Debug.Print "bytes(" & i & "):" & bytes(i)
    Next
End Sub

手前味噌ですが、以下の記事で近いことをしてるのでどうぞ。
https://thom.hateblo.jp/entry/2016/09/20/150650

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/07/14 20:27

    VBAにおけるString型は、内部ではバイト型配列として扱われます。2バイトで1文字です。
    よくわからなかったので、写経して実行すると、よく理解できました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.54%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBA

    1779questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1521questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。