1

私はこのサイトの新規ユーザーであり、VBAの新規ユーザーです。

複数のテキストボックス(多くの異なるシートから)の内容を1つのシートにまとめようとしています。

現在、私は単一のテキストボックスから変数に情報を取得することに固執しています。

この時点では、改行(改行、入力、戻りなど)を保持したいだけです。

情報をコピーして貼り付けるだけでも、現時点ではVBA経由でテキストボックスにアクセスすることすらできません。

誰かが手伝ってくれるなら、それは本当に素晴らしいことです!ありがとう。

4

1 に答える 1

2

これは最初はどうですか?

次のコードは、テキストボックス内のテキストを抽出し、すぐに表示できるように印刷します。

Sub ExtractTextFromShapes()

Dim shp As Shape

For Each shp In ActiveSheet.Shapes

    If shp.Type = msoTextBox Then Debug.Print shp.TextFrame.Characters.Caption

Next


End Sub

簡単に交換できます

Debug.Print shp.TextFrame.Characters.Caption

strText = shp.TextFrame.Characters.Caption

于 2012-08-09T20:03:24.767 に答える