Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10705 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20252】ユーザーフォームのデータ削除 さくら 04/12/3(金) 14:15 質問[未読]
【20255】Re:ユーザーフォームのデータ削除 IROC 04/12/3(金) 14:38 回答[未読]
【20256】Re:ユーザーフォームのデータ削除 さくら 04/12/3(金) 14:41 質問[未読]
【20257】Re:ユーザーフォームのデータ削除 つん 04/12/3(金) 14:50 発言[未読]
【20258】Re:ユーザーフォームのデータ削除 さくら 04/12/3(金) 15:09 回答[未読]
【20259】Re:ユーザーフォームのデータ削除 つん 04/12/3(金) 15:23 発言[未読]
【20333】Re:ユーザーフォームのデータ削除 さくら 04/12/6(月) 10:04 発言[未読]
【20334】Re:ユーザーフォームのデータ削除 つん 04/12/6(月) 10:46 発言[未読]
【20335】Re:ユーザーフォームのデータ削除 さくら 04/12/6(月) 11:08 お礼[未読]
【20252】ユーザーフォームのデータ削除
質問  さくら  - 04/12/3(金) 14:15 -
引用なし
パスワード
   いつも勉強させて頂いています。

エクセルの表に、ユーザーフォームを使い入力させています。

表の空欄セルを「TextBox」の「controlSource」にしていて、その内容を表の最終行を見つけて　値だけ貼り付けています。

　　Range("O1:AK1").Copy
　 最終行 = Range("A2").CurrentRegion.Rows.Count + 1
　 Cells(最終行, 1).Select

　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
　　　　False, Transpose:=False
　　 Application.CutCopyMode = False
　　

貼り付け終わったら、フォームの内容を消したくて　次のようにしました。
　　Range("O1:AK1").ClearContents
　　Range("A1").Select

けれど、セルのデータは削除できるのですが　ユーザーフォームでは、そのままデータが残ってしまいます。

どうしたら良いのでしょうか?
初心者です。よろしくお願い致します
【20255】Re:ユーザーフォームのデータ削除
回答  IROC  - 04/12/3(金) 14:38 -
引用なし
パスワード
   TextBox1.text=""　ですか？
【20256】Re:ユーザーフォームのデータ削除
質問  さくら  - 04/12/3(金) 14:41 -
引用なし
パスワード
   IROC さんごめんなさい。全くの初心者なので

>TextBox1.text=""　ですか？
上記の意味がわかりません。

もう一度、質問していただけますか？
【20257】Re:ユーザーフォームのデータ削除
発言  つん E-MAIL  - 04/12/3(金) 14:50 -
引用なし
パスワード
   ▼さくら さん：
>IROC さんごめんなさい。全くの初心者なので
>
>>TextBox1.text=""　ですか？
>上記の意味がわかりません。
>
>もう一度、質問していただけますか？

こんにちは。
IROCさんは、「TextBox1.text=""」で強引に？テキストボックスの値をクリアしたらどうですか？とおっしゃってるのだと思いますが、
さくらさんは、ControlSauceで設定しているので、設定先のセルをクリアすることで、テストボックスの値もクリアしたいのだけど出来ない・・とおっしゃってるんですよね？

どこのセルを設定させているのですか？
コピー元のセルをクリアさせているようですが、コピー元のセルを設定してるんじゃないですよね？
ちとわかりずらいのですが・・・
【20258】Re:ユーザーフォームのデータ削除
回答  さくら  - 04/12/3(金) 15:09 -
引用なし
パスワード
   つんさん　ありがとうございます。
コピー元が　コントロールソースの設定先です。

的外れの答えだったら、すみません…
【20259】Re:ユーザーフォームのデータ削除
発言  つん E-MAIL  - 04/12/3(金) 15:23 -
引用なし
パスワード
   ▼さくら さん：
>つんさん　ありがとうございます。
>コピー元が　コントロールソースの設定先です。
>
>的外れの答えだったら、すみません…

えーっと、コピー元っちゅーことは、「Range("O1:AK1")」ですよね？
これをテキストボックスの「controlSource」に設定できましたか？
こちらで、複数範囲のセルを設定しようとしたら、エラーで叱られてしまったのですが・・・私もあまりやったことがないので、やり方が間違ってるのかなー？

それから、一番最初の投稿の

>表の空欄セルを「TextBox」の「controlSource」にしていて

というのの意味が？？？？です。
この１文で、コピー先のセルを設定していて、コピーされて値が入ったら、テキストボックスにも反映・・っってことかなー？って思ったんやけど。
違うのね？？？
【20333】Re:ユーザーフォームのデータ削除
発言  さくら  - 04/12/6(月) 10:04 -
引用なし
パスワード
   ▼つん さん：遅くなってごめんなさい
フォームの中にたくさんのテキストボックスがあり、それぞれ個々に設定してあります。
なので一つのセルに｢Range｣で指定しているわけでは　ないのです。

＞コピー先のセルを設定していて、コピーされて値が入ったら、テキストボックスにも反映・・っってことかなー？って思ったんやけど

えっと、テキストボックスの内容を　指定したセルに反映させたいのです…
【20334】Re:ユーザーフォームのデータ削除
発言  つん E-MAIL  - 04/12/6(月) 10:46 -
引用なし
パスワード
   おはようございます。

>フォームの中にたくさんのテキストボックスがあり、それぞれ個々に設定してあります。
>なので一つのセルに｢Range｣で指定しているわけでは　ないのです。
>
>＞コピー先のセルを設定していて、コピーされて値が入ったら、テキストボックスにも反映・・っってことかなー？って思ったんやけど
>
>えっと、テキストボックスの内容を　指定したセルに反映させたいのです…

こちらで、簡単にテスト的に作ってやってみました。

フォームに、テキストボックスを３つ配置。
各々、TextBox1　に「A1」
　　　TextBox2　に「A2」
　　　TextBox3　に「A3」 を設定。

コード内で、

Range("a1:a3").ClearContents

を実行・・・基本的にはこういうことですか？
これを実行したら、こちらでは、ちゃんとTextBoxの値はクリア出来ましたが・・
こういうことではないですか？

確認だけのレスですみません。
【20335】Re:ユーザーフォームのデータ削除
お礼  さくら  - 04/12/6(月) 11:08 -
引用なし
パスワード
   ▼つん さん：
おはようございます。

すみません、自分で解決できてしまいました＜（_　_）＞

ﾏｸﾛの内容は　つんさんに送っていただいた通りなのですが
計算方法が「手動」になっていたため
画面が変更されなかったのです…

何度も親切に返信して頂いていたのに
申し訳ありませんでした

ごめんなさい
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10705 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free