目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
140 / 277 ←次へ　｜　前へ→
【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
1,723 hits
【145】文字列左にあるシングルクォーテーションの有無 Jaka 06/5/9(火) 10:19 Excel[未読]
【149】Re:文字列左にあるシングルクォーテーション... Jaka 06/7/19(水) 10:58 Excel[未読]≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
140 / 277 ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free