|
▼Lindy さん:
回等ありがとうございます。
>>初心者ですが、Excelの一般操作で行なえることは全てマクロで可能。と信じて
>>きましたが、
>これはほぼ間違ってないと思いますよ。
>ネイティブかどうかの違いで速度の違いはあれど実現は可能と思います。
このお言葉、これからの糧にしたいと思います。
言い訳がましいのですが、下記2つのコードは投稿前に検討して見ました。
Sub 単語抽出()
Dim myStr As String
myStr = Mid(ActiveCell, 19, 5)
Sheets("要調査").Select
Range("B65536").End(xlUp).Offset(1, 0).Value = myStr
Sheets("本文").Select ’次の準備
End Sub
Sub 文字位置取得2()
Dim mymoji As Integer
mymoji = InStr(ActiveCell, "ナポレオン")
MsgBox mymoji
End Sub
文字数取得のLENも理解しています。
但し、この場合は「19文字目」 「5文字」 「ナポレオン」などの
プロパティの設定が必要ですよね。
これらを省略したいのです。・・・やっぱり無理なのでしょうか?
例えば、ワークシートでセル範囲を設定しておけば
myStr=Selection
だけでデーター取得が可能ですよね。これと同じようなことが出来ないのかと思ったのです。
説明不足で申し訳ありませんが、宜しくお願いします。
|
|