Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52869 / 76732

←次へ　｜　前へ→


	【28690】Re:UserFormのTextBox入力後に特定セルを横にずらしたい

かみちゃん - 05/9/12(月) 23:57 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>("f:f")ではなく発注数と入力されている行の横という指定はできないのでしょうか？

よくわかりませんが、「発注数」という列に対して１列挿入したら、「発注数」
の列が右にずれると思いますが、そういうことでいいのではないでしょうか？
それでよければ、次のようなコードでできます。

　'セル全体から「発注数」とあるセルを検索
　Set FR = Cells.Find("発注数", , xlValues, xlWhole, , xlPrevious)
　If Not FR Is Nothing Then
　　'検索セルが見つかったら
　　FR.EntireColumn.Select
　　Selection.Insert Shift:=xlToRight
　Else
　　MsgBox "発注数のセルは見つかりません"
　End If

0 hits

▼

【28577】教えてください tbtk 05/9/9(金) 14:10