Excel VBA質問箱 IV

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

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


28424 / 76732 ←次へ | 前へ→

【53606】Re:置き換えプログラム
発言  わいわい  - 08/1/24(木) 12:14 -

引用なし
パスワード
   もうもう見てないかも知れませんが、せっかく作ってたんで。


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

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

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


新規ブックのSheet1のA列に

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 質問
【53602】Re:置き換えプログラム neptune 08/1/24(木) 10:50 発言
【53603】Re:置き換えプログラム neptune 08/1/24(木) 10:57 発言
【53604】Re:置き換えプログラム ma 08/1/24(木) 11:25 お礼
【53606】Re:置き換えプログラム わいわい 08/1/24(木) 12:14 発言
【53611】Re:置き換えプログラム VBWASURETA 08/1/24(木) 17:35 発言
【53612】Re:置き換えプログラム わいわい 08/1/24(木) 18:56 発言
【53615】Re:置き換えプログラム VBWASURETA 08/1/24(木) 20:46 発言
【53946】Re:置き換えプログラム みそじのおじさん 08/2/17(日) 18:25 回答

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