Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"表"10 - 20 件目を表示
"表" 一致するキーワードは見つかりませんでした。
全般
質問者が納得shumari_kさん
C列が「0」以外のとき、A列の同行の数字をD列に抽出します。
Sub sample()
Dim c As Range, cnt As Long
For Each c In Range("C1:C100")
If c <> 0 Then
cnt = cnt + 1
Cells(cnt, 4) = c.Offset(, -2)
End If
Next c
End Sub
4762日前view13
全般
質問者が納得12:30：前回の質問を確認し、回答追記しました
=IF(A1="---","---", を式の先頭に付け、---を対象から除外するのが良いでしょう
上記方法へ応用するなら
=IF(A1="---","---",IF(A1>=100,"S",IF(A1>=75,"A",IF(A1>=50,"B",IF(A1>=25,"C"...
4797日前view9
全般
質問者が納得◆Sheet1のC列を作業列とします。
C2=IF(B2="","",ROW(A1))
フィルダウン
Sheet2の
A2=IF(COUNT(Sheet1!$C$2:$C$100)<ROW(A1),"",INDEX(Sheet1!A$2:A$100,SMALL(Sheet1!$C$2:$C$100,ROW(A1))))
B2へコピペして、A2:B2をドラッグしてフィルダウン
◆作業列を設けない場合（配列数式）
A2=IF(CO...
4876日前view9
全般
質問者が納得【補足による追記】
>応用編なのですが、表の範囲が100行目までではなく、下方向に無制限(A:A、B:B）の場合、どうすればよいでしょうか？
◆SUMIF関数では無理だと思います
◆応用編もいいのですが、実際にしたいことはどんなことでしょう
◆当面は範囲を広げて対応されてはいかがでしょう
***********************
B101に「=SUMIF(A2:A101,"あいうえお",B1:B100）」
4976日前view6
全般
質問者が納得E1 のセルに
=IF(ISERR(SMALL(B:B,ROW(A1))),"",SMALL(B:B,ROW(A1)))
D1 のセルに
=IF(ISERROR(INDEX(A:A,MATCH(E1,B:B,0))),"",INDEX(A:A,MATCH(E1,B:B,0)))
と式を入れて E1:D1 のセルを下にコピー
名前のＡ列が A1:A100 に限られているなら
E1 のセルに
=IF(ISERR(SMALL(B$1:B$100,ROW(A1))),&qu...
5001日前view8
全般
質問者が納得D2に、
=IF(SUMPRODUCT((A1={"特急","準急","急行"})*1),"電車","")
これを下へオートフィルしてください。
5012日前view8
全般
質問者が納得> 一応、データの入力規制で
それはコンボボックスじゃなくて ドロップダウンリスト。
> とやってみたのですが、重複データーが大量に出て駄目でした
どうなって欲しいのかが分かりません。
ひとまず Alt + ↓ で連続する行方向のデータなら重複なしで参照
できます。
根本的な話をすると 入力しているデータからリストにするのではなく
管理用のマスタを持つべきかと思います。
5036日前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
5045日前view7
