Excel VBA質問箱 IV

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

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


73891 / 76738 ←次へ | 前へ→

【7320】Re:テキストボックス
回答  Jaka  - 03/9/2(火) 14:51 -

引用なし
パスワード
   つんさん こんにちは。
おじゃまします。
ここにつけさせてね!

Shapesの方のテキストボックスだったら
[#5961]の応用とか、

更に256文字以上に対応させたいんだったら、
(Sheet1にあるテキストボックス1の内容をSheet2、C1に書きこみ。)

Sub テキストからセルへ()
  Dim Myst As String, Myst1 As String, Myst2 As String, Myst3 As String
  Dim Myst4 As String
  Dim MCS As Long
  MCS = 1: Myst = Empty: Myst1 = Empty
  On Error Resume Next
  Do
    Myst1 = Sheets("Sheet1").Shapes("Text Box 1").TextFrame.Characters(MCS, 255).Text
    If Err <> 0 Then Exit Do
    Myst = Myst & Myst1
    MCS = MCS + 255
  Loop Until Myst1 = ""
  Sheets("Sheet2").Range("C1").Value = Myst
End Sub
0 hits

【7305】テキストボックス nibu 03/9/2(火) 11:06 質問
【7307】Re:テキストボックス INA 03/9/2(火) 11:29 回答
【7308】Re:テキストボックス つん 03/9/2(火) 11:29 回答
【7320】Re:テキストボックス Jaka 03/9/2(火) 14:51 回答
【7322】Re:テキストボックス nibu 03/9/2(火) 16:11 お礼

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