Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"程"4 件の検索結果
"程" 一致するキーワードは見つかりませんでした。
全般
質問者が納得b10_meimeiさん
A列の車両のみの入れ替えですネ。。
マクロ案です。
下記のコードを指定された要領で張り付けて、、
最初のセルは普通どおりクリックして、
2回目のセル選択は「Ctrl」を押下したままクリックすると、
下図のように「入れ替えますか?」のメッセージボックスが出ますので、
「はい」をクリックすると入れ替えます。
「いいえ」をクリックするとキャンセルされます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
St...
4788日前view10
全般
質問者が納得｛補足をみて｝
では以下の通りに変更いたします
シート2のA3:
=IF(ROW(A1)>COUNTIF(シート1!$A$2:$A$100,$A$1),"",INDEX(シート1!C:C,SMALL(INDEX((シート1!$A$2:$A$100<>$A$1)*10^3+ROW(シート1!$A$2:$A$100),),ROW(A1))))
と入力し、↑A3の式を下へドラッグしてフィルコピーしてください
なお シート名は シート1 として、数字は半角です
//
4836日前view8
全般
質問者が納得こんな感じでしょうか
削除の前に表示しないを入れています。削除してしまうと、後で必要になったとき困るかと思って・・・
コードは削除を活かしています、表示しないは、コメントにしています・・・必要でなければ一行消してください。
アポストフィをはずせばコードとして生きます。
Sub test ( )
Dim i As Integer
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Not Range(&...
5179日前view8
全般
質問者が納得コンボボックスではなく入力規則のリストでやってみました。シートモジュールとして記述
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then Exit Sub
If Target.Offset(, -1).Value = "" Then Exit Sub
Dim 表, 元の値 As String
表 = [Sheet3!A1:B1
5260日前view7
- 1
