Excel VBA質問箱 IV

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

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


63902 / 76738 ←次へ | 前へ→

【17426】Re:文字列を8ビットコードに簡単に変換したい
回答  Hirofumi  - 04/8/29(日) 11:38 -

引用なし
パスワード
   例えば、TextBox1のAfterUpdateイベントで行うとすれば以下の様に成ります

Private Sub TextBox1_AfterUpdate()

  Dim i As Long
  Dim strBuff As String
  Dim strData As String
  Dim strResult As String
  
  strData = TextBox1.Text
  If strData <> "" Then
    For i = 1 To Len(strData)
      strBuff = JIS8(Mid(strData, i, 1))
      If strBuff <> "" Then
        strResult = strResult & strBuff
      Else
        Beep
        MsgBox "変換できない文字が含まれています 「" _
                & Mid(strData, i, 1) & "」"
        Exit Sub
      End If
    Next i
    TextBox2.Text = strResult
  End If
  
End Sub

後、以下のコードを「Sub JIS8」に追加して下さい

Public Function JIS8(ByVal strValue As String) As String

  Dim lngASCNo As Long
  
  If strValue = "" Then '※追加
    Exit Function '※追加
  End If '※追加
  
  lngASCNo = Asc(Left(strValue, 1))

0 hits

【17413】文字列を8ビットコードに簡単に変換したい HyperVTEC 04/8/28(土) 23:39 質問
【17419】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 1:11 回答
【17423】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 9:25 質問
【17426】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 11:38 回答
【17425】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 10:58 発言
【17428】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 11:56 質問
【17431】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 12:46 回答
【17433】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 13:50 お礼
【17434】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 14:34 発言
【17435】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 16:56 お礼
【17436】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 17:47 発言
【17437】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 18:28 質問
【17438】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 18:39 発言
【17439】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 19:00 お礼

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