A100
x
Gizport
  • 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
4792日前view13
全般
 
質問者が納得A1~B100までを範囲選択し 条件付き書式 数式が =ISERROR(VLOOKUP(A1,$A$1:$B$100,2,FALSE)) 書式ボタンからパターンの色設定 以上
4798日前view11
全般
 
質問者が納得◆これでいかがでしょう E1=IF(A1="","",IF(COUNT(B2:C20),A1-MIN(OFFSET(D2,,,MATCH(1,INDEX(1/((B2:B20<>"")+(C2:C20<>"")),),0))),"")) ★下にコピー
4833日前view11
全般
 
質問者が納得前半 B1=A1 B2=B1&A2 として B2のフィルハンドルをダブルクリックです。 後半 一度メモ帳に貼り付けてから 再度コピー&ペーストでうまくいきませんか? 補足に対して >専門用語 >フィルハンドル のことかな B2を100目まで下にコピーです。
4838日前view9
全般
 
質問者が納得複数条件に合うセルを合計する http://www.eurus.dti.ne.jp/~yoneyama/Excel/waza/goukei.html#fukusu ・SUMPRODUCT関数:=SUMPRODUCT(配列1,配列2,配列3,...) [SUMPRODUCT関数の応用] AND条件 が参考になるのでは?
4867日前view21
全般
 
質問者が納得D1からE30 を絶対参照にします。 絶対参照とは、オートフィルやコピーをしてもセル番地がずれないようにする ことです。 B1に =VLOOKUP(A1,$D$1:$E$30,2,FALSE ) B1を B2より下にオートフィルすると =VLOOKUP(A2,$D$1:$E$30,2,FALSE ) =VLOOKUP(A3,$D$1:$E$30,2,FALSE ) とA列の番号のみ変わっていきます。 すなわち、$D$1:$E$30と列番号、番号の前に$をつけます。 絶対参照・相対参照と$マ...
4925日前view10
全般
 
質問者が納得以下の手順を試してください。 B1に、#=A3 B2に、#=A6 としてB1:B2を選択してオートフィル フィル範囲が選択状態のまま編集メニューの「置換」で #= を = に「すべて置換」
4941日前view8
全般
 
質問者が納得B2で「ウィンドウ枠の固定」をしたなら、 横スクロールして、A列の隣にZ列を持ってくるだけで済みませんか? これだけでは不足なのでしょうか??? もし良ければ、ハイパーリンクでZ列に飛ぶ方法ではどうですか? B3で「ウィンドウ枠の固定」に変えて、項目名は2目にします。 そして空いた1目のB1に検索用の氏名を入力するとして、 C1に、 =HYPERLINK("#"&ADDRESS(MATCH($B$1,A:A,0),26),"日付入力") これで、C1が...
4955日前view8
全般
 
質問者が納得こんな感じでしょうか 削除の前に表示しないを入れています。削除してしまうと、後で必要になったとき困るかと思って・・・ コードは削除を活かしています、表示しないは、コメントにしています・・・必要でなければ一消してください。 アポストフィをはずせばコードとして生きます。 Sub test ( ) Dim i As Integer For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Not Range(&...
4993日前view8
全般
 
質問者が納得D2に、 =IF(SUMPRODUCT((A1={"特急","準急","急"})*1),"電車","") これを下へオートフィルしてください。
5042日前view8

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