A100
x
Gizport
  • Q&A

  • 取扱説明書・マニュアル (文書検索対応分のみ)

 
"セル"50 - 60 件目を表示
全般
 
質問者が納得以下の手順を試してください。 B1に、#=A3 B2に、#=A6 としてB1:B2を選択してオートフィル フィル範囲が選択状態のまま編集メニューの「置換」で #= を = に「すべて置換」
4940日前view8
全般
 
質問者が納得B2で「ウィンドウ枠の固定」をしたなら、 横スクロールして、A列の隣にZ列を持ってくるだけで済みませんか? これだけでは不足なのでしょうか??? もし良ければ、ハイパーリンクでZ列に飛ぶ方法ではどうですか? B3で「ウィンドウ枠の固定」に変えて、項目名は2行目にします。 そして空いた1行目のB1に検索用の氏名を入力するとして、 C1に、 =HYPERLINK("#"&ADDRESS(MATCH($B$1,A:A,0),26),"日付入力") これで、C1が...
4954日前view8
全般
 
質問者が納得A1選択状態か、範囲指定でA1がアクティブな状態で条件式をみているから=A1=MAX($A$1:$A$100)″ となっています。 A2を選択し、条件式をみると=A2=MAX($A$1:$A$100)″ となっているはずです。 A○が条件を満たした場合セルに色がつくので、各セルは、A1からA100で変動しています。 指定する際は、範囲指定し条件設定で、アクティブセル=で作成すれば、勝手に、他のセルの条件は変動します。 ($A$1:$A$100)″は$つき絶対値になっているのでどのセルでも固定範囲となります。
4956日前view7
全般
 
質問者が納得こんな感じでしょうか 削除の前に表示しないを入れています。削除してしまうと、後で必要になったとき困るかと思って・・・ コードは削除を活かしています、表示しないは、コメントにしています・・・必要でなければ一行消してください。 アポストフィをはずせばコードとして生きます。 Sub test ( ) Dim i As Integer For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Not Range(&...
4993日前view8
全般
 
質問者が納得例えば =LOOKUP("ーー",A:A) こんな式で参照できるはずです。
4995日前view11
全般
 
質問者が納得【補足による追記】 >応用編なのですが、表の範囲が100行目までではなく、下方向に無制限(A:A、B:B)の場合、どうすればよいでしょうか? ◆SUMIF関数では無理だと思います ◆応用編もいいのですが、実際にしたいことはどんなことでしょう ◆当面は範囲を広げて対応されてはいかがでしょう *********************** B101に「=SUMIF(A2:A101,"あいうえお",B1:B100)」
5006日前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 のセルを下にコピー 名前のA列が A1:A100 に限られているなら E1 のセルに =IF(ISERR(SMALL(B$1:B$100,ROW(A1))),&qu...
5031日前view8
全般
 
質問者が納得D2に、 =IF(SUMPRODUCT((A1={"特急","準急","急行"})*1),"電車","") これを下へオートフィルしてください。
5042日前view8
全般
 
質問者が納得> 一応、データの入力規制で それはコンボボックスじゃなくて ドロップダウンリスト。 > とやってみたのですが、重複データーが大量に出て駄目でした どうなって欲しいのかが分かりません。 ひとまず Alt + ↓ で連続する行方向のデータなら重複なしで参照 できます。 根本的な話をすると 入力しているデータからリストにするのではなく 管理用のマスタを持つべきかと思います。
5066日前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
5074日前view7

この製品について質問する