Excel VBA質問箱 IV

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

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


31130 / 76732 ←次へ | 前へ→

【50857】Re:文字列の一部を指定範囲し別シートに複写したい
発言    - 07/8/19(日) 21:37 -

引用なし
パスワード
   ▼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
だけでデーター取得が可能ですよね。これと同じようなことが出来ないのかと思ったのです。
説明不足で申し訳ありませんが、宜しくお願いします。
2 hits

【50854】文字列の一部を指定範囲し別シートに複写したい 07/8/19(日) 18:51 質問
【50856】Re:文字列の一部を指定範囲し別シートに複... Lindy 07/8/19(日) 20:59 発言
【50857】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 21:37 発言
【50858】Re:文字列の一部を指定範囲し別シートに複... 07/8/19(日) 22:59 お礼
【50860】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:09 発言
【50859】Re:文字列の一部を指定範囲し別シートに複... neptune 07/8/19(日) 23:06 回答
【50861】Re:文字列の一部を指定範囲し別シートに複... 07/8/20(月) 0:59 お礼

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