エクセルの学校：全文検索：Hyper Estraier： IF

Results of 91 - 100 of about 37673 for IF (0.013 sec.)

[[20170410161206]] 1317: 『Worksheet_Change連結について』（satosi）
マクロ初心者です。プロシージャが2つあり、つなぎ方だと ... Target As Range) Dim セル代入 As Range With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit ... Sub If Intersect(Target, Range("C20:C500")) Is Nothing Th ... en Exit Sub If .Value < Range("C20").Value Then MsgBox "日付が起算 ... se .Value = "" Application.EnableEvents = True End If End With ==================== If Intersect(Target, ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201704/20170410161206.txt - [detail] - similar

[[20210521231309]] 1317: 『転記について』（u）
こんばんは以前隠居じーさん様にご教授いただいたコードでコードの内容を自分 ... To UBound(v, 2) Step 13 For j = 12 To UBound(v, 1) If v(j, i) <> "" Then ReDim tMp(1 To 3 + 2) tMp(1) = ... 程 ReDim Preserve iDx(n) iDx(n) = tMp n = n + 1 End If Next Next n = 0 For i = LBound(iDx) To UBound(iDx) ... Tx = ThisWorkbook.Path & "¥" & iDx(i)(2) & ".xlsx" If zWbExists(fNmTx) Then Set leadB = Workbooks.Open(f ... rr = .Range("B6:AJ359") For k = 2 To rr.Rows.Count If iDx(i)(4) = "" Then If rr(k, 1) = iDx(i)(3) And rr ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202105/20210521231309.txt - [detail] - similar

[[20100316112608]] 1317: 『同じシートでマクロを組む場合』（あさ）
Private Sub Worksheet_Change(ByVal Target As Range) A行 ... rivate Sub Worksheet_Change(ByVal Target As Range) If or(target.columns = 1,target.columns = 2) Then els ... eif or(target.column = 3,target.column = 4) Then とか、 ... すが、ワークシート関数とVBAの表記の違いが・・・^^; >If or(target.columns = 1,target.columns = 2) Then >el ... seif or(target.column = 3,target.column = 4) Then If Ta ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100316112608.txt - [detail] - similar

[[20070126230757]] 1317: 『教えてください VLOOKUPを使いすぎて。。。。』（パー子）
次のようなデーターを作ってみました。デ ... にデーターを自動出力 E列はシート3と4の集計を行い（SUMIF）残りQTYがいくつかを計算 ---- >データー更新に時間が ... et As Range) Dim data As String, i As Long, x, tbl If Target.Count > 1 Then Exit Sub If Target.Column = ... n = 4 And Target = "" Then Target.Offset(, 1) = "" If Target.Column = 2 Then Target.Offset(, -1) = "" En ... d If Exit Sub End If If Target.Column <> 3 And Target.C ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070126230757.txt - [detail] - similar

[[20101223162754]] 1317: 『時間の計算』（かじ）
時間の計算を作っているのですがよくわかりません。 =IF(COUNT(E13,G13)=2, SU ... になればいいのかな式のスペースの部分が , の間違い =IF(COUNT(E13,G13)=2,SUM(ROUND(MAX(0,MIN(G13,"12:00")- ... ,"23:30")-MAX(E13,"19:30"))*1440,0)),"") まとめて =IF(COUNT(E13,G13)=2,ROUND(SUM(MAX(0,MIN(G13,"12:00")- ... vntEnd As Variant Dim lngTime As Long With Target If .Count > 1 Then Exit Sub End If '開始時間、終了時間 ... の何れかが入力された場合 If Not (.Column = 1 Or .Column = 2) Then Exit Sub End ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101223162754.txt - [detail] - similar

[[20090924142553]] 1317: 『予選通過者に印をつけたい』（minami）
陸上競技大会の各種目出場者のリストがあります A B C D E F ... にも思うのですが。。。。? (HANA) ---- こんな感じ H7=IF(ISNUMBER(F7),IF(E7<=$D$2,"Q",IF(F7<=SMALL(IF($E$7: ... y しげちゃん ---- 訂正します（1列ずれてましたね） =IF(ISNUMBER(G7),IF(F7<=$F$2,"Q",IF(G7<=SMALL(IF($F$7: ... 14.55 3 14.55 48 7 Z 1 5 14.78 3 14.78 49 8 3 H5 =IF(AND(ISNUMBER(G5),I5<$E$2),IF(F5<=$F$2,"Q",IF(RANK( ... 9,1)<=$H$2,"q","")),"") →H5:H49フィルコピー I5 =I4+IF(B5="予選",1,0) →I5:I49フィルコピー J5 =IF(AND(ISNU ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090924142553.txt - [detail] - similar

[[20150308172244]] 1312: 『追加質問』（ちぃさん）
お世話になります。 [[20150306215405]] コチラでの追加質問になります。ご ... 始行 Dim c As Range 'E列の変更でなかったら処理しない If Intersect(Target, Columns("E")) Is Nothing Then Ex ... 変更になったセル領域の最初が6行目未満なら処理しない If Target(1).Row < 6 Then Exit Sub Application.Enable ... 美装", LookAt:=xlWhole, SearchDirection:=xlPrevious) If c Is Nothing Then '美装がない場合 'F2,H2が空白では ... なかったら空白にするかどうかを聞く If Len(Range("F2").Value) > 0 Or Len(Range("H2").Valu ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150308172244.txt - [detail] - similar

[[20060710155241]] 1312: 『繰越日数を算出』（ばんばん）
いつも、お世話になってます。下記の表を管理しているのですが、繰越 ... 給日数 12.0日 10繰越日数 4.5日 11合計日数 16.5日 C9=IF(OR(平成17年度!C9=3,平成17年度!C9=5,平成17年度!C9=7 ... ,平成17年度!C9=10),11, IF(平成17年度!C9=11,12,IF(AND(平成17年度!C9>11,平成17 ... まず、繰越分から消化される。以上の条件で、現在、 L6=IF(J6="","",IF(I6="有",IF(J6="○",C11-H6,""),C11))←一覧 ... で算出した日にちから引いてます。 L7=IF(H7="","",IF(J7="○",IF(I7="有",L6-H7,L6),"")) M6=IF ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200607/20060710155241.txt - [detail] - similar

[[20041114104955]] 1312: 『同じ会社の直前のデータを取得するには』（どらきち）
いつも「エクセルの学校」で勉強させていただき ... 000 500 5,000 5 Y社 3,500 600 1,400 6 X社 5,000 B6=IF(ISNA(MATCH(A6,A1:A5,0)),"該当なし",INDEX(A1:D5,MAX ... ((A1:A5=A6)*ROW(A1:A5)),4)) として、Shift+Ctrlキー押しながらEnterキーで確定して配列数式に。 ... でしょうか。 Sub Test() For Each c In Range("A1:A5") If c.Value = Range("A6") Then MyRow = c.Row If MyRow ... < c.Row Then MyRow = c.Row Else MyRow = MyRow End If End If Next c If IsEmpty(MyRow) Then MsgBox ("該当 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200411/20041114104955.txt - [detail] - similar

[[20130320082734]] 1312: 『複数のcheckboxとoptionbuttonの上手な記述について』（くま）
はじめまして。現在下記のようなロジッ ... →処理が増減するとcheckboxとoptionbuttonの組み合わせ(if〜elseif)を増やすと個々の処理は対応できるのですが、 ... 定チェックボックスの選択結果を調べる '入庫印刷対応 If UserForm1.CheckBox1.Value = True And UserForm1.Opt ... alse OptionButton1.Value = False '出庫印刷対応 ElseIf UserForm1.CheckBox1.Value = True And UserForm1.Opt ... ptionButton2.Value = False 'A世代入庫印刷対応 ElseIf UserForm1.CheckBox2.Value = True And UserForm1.Opt ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130320082734.txt - [detail] - similar

訪問者：カウンタ