目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
65 / 109 ツリー ←次へ | 前へ→

【145】文字列左にあるシングルクォーテーションの有無 Jaka 06/5/9(火) 10:19 Excel[未読]
【149】Re:文字列左にあるシングルクォーテーション... Jaka 06/7/19(水) 10:58 Excel[未読]

【145】文字列左にあるシングルクォーテーションの...
Excel  Jaka  - 06/5/9(火) 10:19 -

引用なし
パスワード
   簡単な説明
文字列にする時、文字の先頭に「'」をつけて文字列にする時があります。
(接頭辞と言うらしい。)
このシングルクォーテーションの文字を取得し有無を調べる時のコードです。

A列を調べる場合、

Sub TEST1()
  Dim WBN As String, Wsh As String
  WBN = "BOOK3.xls"  'ActiveWorkbook.Name
  Wsh = "Sheet2"   'ActiveSheet.Name
  For i = 1 To Range("A65536").End(xlUp).Row
   If ShgQot(WBN, Wsh, Cells(i, "A")) Then
     Cells(i, "B").Value = "接頭辞 有り"
   Else
     Cells(i, "B").Value = "接頭辞 無し"
   End If
  Next
End Sub

Function ShgQot(WbNm As String, ShNm As String, Cel As Range) As Boolean
  Dim RCAd As String, Mc4St As String, BkShN As String
  BkShN = "[" & WbNm & "]" & ShNm & "!"
  RCAd = Cel.Address(, , xlR1C1)
  Mc4St = "GET.CELL(52," & BkShN & RCAd & ")"
  If Application.ExecuteExcel4Macro(Mc4St) = "'" Then
   ShgQot = True
  Else
   ShgQot = False
  End If
End Function

【149】Re:文字列左にあるシングルクォーテーショ...
Excel  Jaka  - 06/7/19(水) 10:58 -

引用なし
パスワード
   これで良いみたい。

Sub TEST2()
  Dim WBN As String, Wsh As String
  WBN = "BOOK2"    'ActiveWorkbook.Name
  Wsh = "Sheet2"   'ActiveSheet.Name
  With Workbooks(WBN).Sheets(Wsh)
    For i = 1 To .Range("A65536").End(xlUp).Row
     If .Cells(i, "A").PrefixCharacter = "'" Then
       .Cells(i, "B").Value = "接頭辞 有り"
     Else
       .Cells(i, "B").Value = "接頭辞 無し"
     End If
    Next
  End With
End Sub

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
65 / 109 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free