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

Results of 91 - 100 of about 37649 for IF (0.012 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

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

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

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

[[20130320082734]] 1313: 『複数の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

[[20060710155241]] 1313: 『繰越日数を算出』（ばんばん）
いつも、お世話になってます。下記の表を管理しているのですが、繰越 ... 給日数 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

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

訪問者：カウンタ