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

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

[[20120308182553]] 1317: 『データをコピーして一部の内容を変更して挿入するマクロ』（ふーさん）
工場で生産指示したものをどこ ... = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row If lngRows <= 0 Then lngRows = 0 Else '最終列の後ろに ... ns).Resize(lngRows).Formula = "=Row()-" & .Row End If End With '「指示No」を無重複で取得 vntData = GetNu ... mb If Not VarType(vntData) = vbBoolean Then ComboBox1.Li ... st = vntData End If ComboBox2.ColumnCount = 2 'Dictionaryオブジェクトを ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201203/20120308182553.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

[[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

[[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

[[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

[[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]] 1313: 『追加質問』（ちぃさん）
お世話になります。 [[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

[[20090827173404]] 1313: 『このマクロで、手挿し口から印刷を行いたい。』（sathi）
下記のマクロを使用しています。 checkbox6 ... 願いいたします。 Private Sub CommandButton1_Click() If Me.CheckBox6 = True Then If MsgBox("第二原用紙をプ ... , vbYesNo + vbQuestion, "出力先確認") = vbYes Then If MsgBox("プリンターを変更しますか?", vbYesNo + vbQu ... eets("表紙").PrintOut Copies:=1, Collate:=True End If Worksheets("表紙2").PrintOut Copies:=1, Collate:=T ... rue If Me.CheckBox9 = True Then Worksheets("表紙3").Print ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200908/20090827173404.txt - [detail] - similar

[[20041114104955]] 1313: 『同じ会社の直前のデータを取得するには』（どらきち）
いつも「エクセルの学校」で勉強させていただき ... 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

[[20110829211436]] 1313: 『IF関数の複数条件』（しゅう）
=IF(OR(LEFT(A2,1)="X",LEFT(A2,1)="Z"),LEFT(A2,1)&TEXT(MID(A2,2,LE ... N(A2)-1)*-1,"0.###"),IF(A2="","",A2)) 以上の式に A2セルに”F2”の入力があると ... えて頂けないでしょうか。よろしくお願いします。 ---- IF(A2="","",A2) の所が IF(A2="F2","G3",IF(A2="F3","G4 ... F2”の入力と言うのは、F2と等しいって事でしょうか? IF(A2=F2,G3,IF(A2=F3,G4,"")) 他にも長く続くのでしょう ... ・最後の条件（もともと有った条件）が抜けてましたね? IF(A2="F2","G3",IF(A2="F3","G4",IF(A2="","",A2))) ‾‾‾ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201108/20110829211436.txt - [detail] - similar

訪問者：カウンタ