Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28499 / 76807

←次へ　｜　前へ→


	【53606】Re:置き換えプログラム

わいわい - 08/1/24(木) 12:14 -


	引用なし

	パスワード

もうもう見てないかも知れませんが、せっかく作ってたんで。

挑戦的な質問内容にチョット戸惑い(≧ω≦)ｂ
neptune さんの意見と１２０％同感ですが、

実は、久しぶりに自分の初質問投稿の内容を見て、ちょ～赤面しました。
その時の、回答者Ｊ○さんに感謝した気持ちは今でも忘れません。
前置きはさておき、
こんなものを作ってみました。

Sub tyousen()
Dim Search_Range　　　As Range
Dim Hit_Range　　　 As Range
Dim T　　　　　　　 As Range
Dim Search_Str　　　　　As String
Sheet1.Activate
Search_Str = "M06"
Set Search_Range = Sheet1.Range("A1:A12")
For Each T In Search_Range
　　Set Hit_Range = T.Find(What:=Search_Str, LookIn:=xlValues, LookAt:=xlWhole, _
　　　　　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
　　If Hit_Range Is Nothing Then
　　　　T.Offset(0, 1).Value = T.Value
　　Else
　　　　T.Offset(0, 1).Value = "けろ・けろ" & T.Value
　　End If
Next
End Sub

新規ブックのＳｈｅｅｔ1のＡ列に

X-155.　　　　　
X-158.　　　　　
G00Z100.　　　　　
M09　　　　　
M05　　　　　
G91G00G28Y0.Z0.　　　　　
G90G54.1X0.　　　　　
M06　　　　　
( 16. RADIUSMILL )　　　　　
N002　　　　　
G90G00G54X-170.Y7.T5　　　　　
G43Z100.H3S2000M03　　　　
を、入力しておいてから実行してみてねん

ここから質問をやり直しましょう。
でばでば

0 hits

▼

【53601】置き換えプログラム ma 08/1/24(木) 8:44