エクセルの学校：全文検索：Hyper Estraier：』（エクセル）

Results of 1 - 1 of about 29 for 』（エクセル） (0.013 sec.)

[[20181101113631]]: #score: 15826; @digest: 04bc389c95922b508f5cdd7e0ef8d5ba; @id: 77693; @mdate: 2018-11-01T04:39:55Z; @size: 2304; @type: text/plain; #keywords: 定中 (9447), 査定 (8300), result (7091), 択先 (6024), ん!" (5435), 合re (5069), 中" (2854), お呼 (2726), 数re (2690), vbcritical (2524), ン() (2309), 当番 (1964), モー (1666), xlpastevalues (1656), 了" (1582), ーモ (1495), elseif (1216), pastespecial (1151), 行ボ (1139), ル番 (1059), 番地 (995), ー後 (896), し" (854), cw (789), 当セ (739), paste (702), 地を (695), range (618), selection (572), 完了 (571), 該当 (532), cutcopymode (478); 『マクロでエラーが表示される件』（エクセル）
お忙しいところすみません。 Selection.PasteSpecial Paste:=xlPasteValues のところがエラーになってしまいます。解決方法をご教授いただけますでしょうか? Sub 実行ボタン() Dim result As Range 'result変数にRangeの値を入れる宣言 Set result = Range("H3:J106").Find(What:=Range("C1").Value) '変数resultに C1の番号がある「セル番地」を入れる 'セル番地を検索する If result Is Nothing = False Then '検索が結果があった場合 result.Cut '該当セル番地をカットする（クリップボードへ） Else MsgBox "該当番号がありません!" '無かった場合はエラーメッセージを出す End If 'モードに合わせた場所を選択する If Range("E1") = "お呼び出し" Then Range("E11").Select ElseIf Range("E1") = "査定中" Then Range("E12").Select ElseIf Range("E1") = "完了" Then Range("E13").Select Else: MsgBox "モードがありません!" End If '----------ここまでは正常に動く-------------------- Selection.PasteSpecial Paste:=xlPasteValues '選択先に"値のみ"貼り付けをする（ Selection.PasteSpecial Paste:=xlPasteValues 'コピーモードを解除する（ Application.CutCopyMode = False End Sub ＜使用 Excel:Excel2016、使用 OS:unknown ＞ ---- windows10を使用しています。（エクセル） 2018/11/01(木) 11:47 ---- セルを Cut しているのに値だけ張り付けようとしているからですかね。 Copy なら動作すると思います。元データを消して良いなら、コピー後に空欄にすれば良いでしょう。または、1セルの値だけコピーするなら、以下のようにしても良いのではないでしょうか。 Sub test() Dim result As Range Dim cw As String Set result = Range("H3:J106").Find(What:=Range("C1").Value) If result Is Nothing Then MsgBox "該当番号がありません!", vbCritical Exit Sub End If If Range("E1") = "お呼び出し" Then cw = "E11" ElseIf Range("E1") = "査定中" Then cw = "E12" ElseIf Range("E1") = "完了" Then cw = "E13" Else: MsgBox "モードがありません!", vbCritical End If If cw <> "" Then Range(cw).Value = result.Value result.Value = "" End If End Sub （???） 2018/11/01(木) 12:01 ---- 理解し、解決できました。ありがとうございました! （エクセル） 2018/11/01(木) 13:39 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201811/20181101113631.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ