Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9122 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29082】抽出し修正し元に戻す ぴぐもん 05/9/23(金) 15:54 質問[未読]
【29084】Re:抽出し修正し元に戻す かみちゃん 05/9/23(金) 16:44 回答[未読]
【29092】Re:抽出し修正し元に戻す ぴぐもん 05/9/23(金) 21:11 お礼[未読]
【29098】Re:抽出し修正し元に戻す [名前なし] 05/9/24(土) 10:30 発言[未読]
【29101】Re:抽出し修正し元に戻す 初心者 05/9/24(土) 21:04 発言[未読]
【29102】Re:抽出し修正し元に戻す かみちゃん 05/9/24(土) 21:09 発言[未読]
【29171】Re:抽出し修正し元に戻す ぴぐもん 05/9/27(火) 10:11 質問[未読]
【29181】Re:抽出し修正し元に戻す かみちゃん 05/9/27(火) 11:12 発言[未読]
【29211】Re:抽出し修正し元に戻す ぴぐもん 05/9/27(火) 17:56 質問[未読]
【29217】Re:抽出し修正し元に戻す ichinose 05/9/27(火) 19:40 発言[未読]
【29218】Re:抽出し修正し元に戻す かみちゃん 05/9/27(火) 19:57 回答[未読]
【29229】Re:抽出し修正し元に戻す ぴぐもん 05/9/28(水) 8:41 お礼[未読]
【29082】抽出し修正し元に戻す
質問  ぴぐもん  - 05/9/23(金) 15:54 -
引用なし
パスワード
   みなさまには日々勉強させていただいてます。
早速質問なんですが、
月毎にシートがあり、そこからある番号を含んだデータを抽出しフォームへ表記するのですが、その抽出したデータをフォーム上で修正しそのデータを元の位置へ戻すにはどうすれば良いでしょうか？抽出までは大体できるのですが元に戻す方法が見つからなくて思案しております。どうかアドバイスをお願いします。
Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ
001　佐藤　主任　完了　完了
002　鈴木　先輩　完了　完了
003　田中　先輩　＿＿　＿＿
004　安藤　主任　完了　完了

Ａを条件で抽出しフォームへ表示
003　田中　先輩　＿＿　＿＿

003　田中　先輩　完了　完了
へフォーム上で修正し完了ボタンを押す

Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ
001　佐藤　主任　完了　完了
002　鈴木　先輩　完了　完了
003　田中　先輩　完了　完了
004　安藤　主任　完了　完了

とシートが修正される。
このような感じです。
【29084】Re:抽出し修正し元に戻す
回答  かみちゃん E-MAIL  - 05/9/23(金) 16:44 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>月毎にシートがあり、そこからある番号を含んだデータを抽出しフォームへ表記
>するのですが、その抽出したデータをフォーム上で修正しそのデータを元の位置
>へ戻すにはどうすれば良いでしょうか？

だいたいこんな感じでできるのではないでしょうか？
修正対象データが、TextBox2〜TextBox5にある場合です。

Private Sub CommandButton2_Click()
　With Sheets("Sheet1").Columns("A").Cells
　　Set c = .Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
　　If Not c Is Nothing Then
　　　c.Offset(, 1).Value = TextBox2.Value
　　　c.Offset(, 2).Value = TextBox3.Value
　　　c.Offset(, 3).Value = TextBox4.Value
　　　c.Offset(, 4).Value = TextBox5.Value
　　　MsgBox "データを修正しました。"
　　Else
　　　MsgBox "番号が見つかりません"
　　End If
　End With
End Sub

必要であれば、今回のご質問に際して、作成したファイルを差し上げますので、
ご連絡ください。
【29092】Re:抽出し修正し元に戻す
お礼  ぴぐもん  - 05/9/23(金) 21:11 -
引用なし
パスワード
   ▼かみちゃん さん：
早速にありがとうございます！
とても参考になりました！！
メッセまでつけていただきありがとうございます。
とてもイメージどおりの適切な回答、感謝します。
【29098】Re:抽出し修正し元に戻す
発言  [名前なし]  - 05/9/24(土) 10:30 -
引用なし
パスワード
   結局、もう一方のサイトは解決にもせずほったらかし・・・。

これだからマルチポストは嫌われているというのに。
どうせこんなこと書いたって、ここももう見ないだろうな。
【29101】Re:抽出し修正し元に戻す
発言  初心者  - 05/9/24(土) 21:04 -
引用なし
パスワード
   初心者にも、分かりやすいような掲示板の使い方を
して欲しい感じの印象を持ちました。
回答者のコードだけでは、ちんぷんかんぷん分かりません。
勉強不足なので仕方無いかも知れませんが。
【29102】Re:抽出し修正し元に戻す
発言  かみちゃん  - 05/9/24(土) 21:09 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>回答者のコードだけでは、ちんぷんかんぷん分かりません。

どこが、わからないかを教えていただけますか？
その前に、ヘルプは見てくださいね。
とりあえず、マルチポストされていて、急いでいるのだろうなと思いましたから、
説明はすべて省略さていただきました。
そういう点では、「やさしくない回答」で、申し訳ありません。
【29171】Re:抽出し修正し元に戻す
質問  ぴぐもん  - 05/9/27(火) 10:11 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。ぴぐもん　です。
>

>Private Sub CommandButton2_Click()
>　With Sheets("Sheet1").Columns("A").Cells
>　　Set c = .Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
>　　If Not c Is Nothing Then
>　　　c.Offset(, 1).Value = TextBox2.Value
　　　　　　　　　　.
　　　　　　　　　　.
　　　　　　　　　　.

のコードで動作しましたが、最近「実行時エラー1004」「RangeクラスのFindプロパティを取得できません」とでます。なぜかといろいろ考えたりいじったりしてたら動くようになったり上書き保存して再度開いたらまた使えなくなってました・・
原因がわかりません。どうかアドバイスをお願いします。
【29181】Re:抽出し修正し元に戻す
発言  かみちゃん E-MAIL  - 05/9/27(火) 11:12 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>Private Sub CommandButton2_Click()
>>　With Sheets("Sheet1").Columns("A").Cells
>>　　Set c = .Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
>>　　If Not c Is Nothing Then
>>　　　c.Offset(, 1).Value = TextBox2.Value
>　　　　　　　　　　.
>　　　　　　　　　　.
>　　　　　　　　　　.
>
>のコードで動作しましたが、最近「実行時エラー1004」「RangeクラスのFindプロパティを取得できません」とでます。

Excelのバージョン何をお使いですか？
当方は、Excel2000SP3を使っていまして、ご提示のシートでさきほど再度検証しま
したが、何も問題ないように思います。

Excel97には、CommandButton_Clickイベントのバグがあると聞いたことがあります。
それ以外のバージョンであれば、シートとコードを見ないとなんともいえません。
【29211】Re:抽出し修正し元に戻す
質問  ぴぐもん  - 05/9/27(火) 17:56 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんばんは

バグですか・・・９７です。
会社のＰＣでしてＵＰデートは見込めません・・
おそらくそのバグってやつだとおもわれます。
最初は正常に動作してましたから・・
ということは解決策は厳しいのですね。
【29217】Re:抽出し修正し元に戻す
発言  ichinose  - 05/9/27(火) 19:40 -
引用なし
パスワード
   こんばんは、皆さん。

>
>バグですか・・・９７です。
>会社のＰＣでしてＵＰデートは見込めません・・
>おそらくそのバグってやつだとおもわれます。
>最初は正常に動作してましたから・・
>ということは解決策は厳しいのですね。

これは、このサイトではポピュラーな事例です。
http://support.microsoft.com/default.aspx?scid=%2Fisapi%2Fgomscom%2Easp%3Ftarget%3D%2Fjapan%2Fsupport%2Fkb%2Farticles%2Fjp408%2F9%2F07%2Easp&LN=JA

これを参考にして下さい。
【29218】Re:抽出し修正し元に戻す
回答  かみちゃん  - 05/9/27(火) 19:57 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>バグですか・・・９７です。

Excel97でしたか。
うまくいかないときは、ExcelとOSのバージョンを明記してくださいね。

>ということは解決策は厳しいのですね。

ichinoseさんからご紹介のあったサポート情報にも載っていますが、

Private Sub CommandButton2_Click()
　ActiveCell.Activate
　'〜 処理 〜

とすれば、うまく動くと思います。
【29229】Re:抽出し修正し元に戻す
お礼  ぴぐもん  - 05/9/28(水) 8:41 -
引用なし
パスワード
   ▼かみちゃん さん：
▼ichinoseさん：

解決策、ありがとうございます。正常に動作しました！
まさかバグという結末で終わるのかと思って半ばあきらめていました・・

やっぱり古いバージョンはいろいろあるんですね。
これからはバージョンも考慮してＢＶＡを楽しんでいきたいです。
今回はありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9122 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free