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

Results of 151 - 160 of about 37697 for IF (0.016 sec.)

[[20150326225242]] 1275: 『完全一致検索(複数列)』（いっちゃん）
dataを格納したsheet1とdataを抜出表示させるsheet2があり、 ... Integer a = 1 b = 1 Do Until b = 3 Do Until a = 6 If Sheets(2).Cells(1, 4).Value = Cells(a, b).Value Th ... .Value = a c(1) = a d = 2 a = a + 1 Do Until a = 6 If Sheets(2).Cells(1, 4).Value = Cells(a, b).Value Th ... en c(d) = a d = d + 1 End If a = a + 1 Loop e = d d = 1 Do Until d = e Sheets(2 ... = Cells(c(d), 2).Value d = d + 1 Loop Exit Sub End If a = a + 1 Loop a = 1 b = b + 1 Loop End Sub （スズ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150326225242.txt - [detail] - similar

[[20120123155217]] 1275: 『入荷マスタの更新』（雪だるま）
[[20111205105217]] 上記の質問でお世話になった者です。上記のトピ ... unt - .Row).End(xlUp).Row - .Row '更新データの消去 If lngRows > 0 Then If MsgBox("前回の更新が行われてい ... "マスタのデータ更新を行って下さい" GoTo Wayout End If End If End With '投入表に就いて With rngResult '列 ... ns.Count - .Column).End(xlToLeft).Column - .Column If lngColumns <= 0 Then strProm = .Parent.Name & "にデ ... ータが有りません" GoTo Wayout End If '出庫場所を取得 vntPlace = .Parent.Range("B7:C7"). ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120123155217.txt - [detail] - similar

[[20111101135213]] 1275: 『Excelの先入先出の方法』（らんきち）
Windows 7,Excel2007,です。 VBAはほとんど扱ったことがないん ... "A" & .Rows.Count).End(xlUp)).Resize(, 4) End With If WorksheetFunction.Sum(listIV.Columns(3)) < Workshe ... V.Offset(, 2).Value qDL = cDL.Offset(, 2).Value Do If qIV > qDL Then Allocation dic, qDL, cIV, cDL qIV = ... DL = cDL.Offset(1) qDL = cDL.Offset(, 2).Value ElseIf qIV < qDL Then Allocation dic, qIV, cIV, cDL qDL = ... IV = cIV.Offset(1) qIV = cIV.Offset(, 2).Value End If If Intersect(cDL, listDL) Is Nothing Then Exit Do ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111101135213.txt - [detail] - similar

[[20150123213359]] 1271: 『データー元の読み取るセル範囲を拡大したいです』（ちぃさん）
いつもお世話になります。 [[20130502 ... ivate Sub xlapp_WorkbookOpen(ByVal Wb As Workbook) If Wb.Name = nameOT Then Set wbOT = Wb If wbOT.Active ... Sheet.Name = nameShTo Then If Len(Join(flag, "")) Then CopyLine End If End If En ... e Sub xlapp_WorkbookActivate(ByVal Wb As Workbook) If Wb.Name = nameOT Then If Wb.ActiveSheet.Name = nam ... eShTo Then If Len(Join(flag, "")) Then CopyLine End If End If En ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201501/20150123213359.txt - [detail] - similar

[[20110420205815]] 1271: 『倍数に色づけ』（はれ）
すみませんたとえばa1セルに数値がありa2の数値が a1の倍数じゃない場合セ ... Target As Range) Dim vA As Variant, vB As Variant If Target.Count = 1 Then If Target.Column = 1 Or Targ ... rget.Row).Value vB = Range("b" & Target.Row).Value If IsNumeric(vA) And IsNumeric(vB) Then If vA <> 0 An ... d vB <> 0 Then If vB Mod vA <> 0 Then Application.EnableEvents = Fal ... ¥ vA + 1) * vA Application.EnableEvents = True End If End If End If End If End If End Sub ---- ↑ ある列か ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201104/20110420205815.txt - [detail] - similar

[[20200426185317]] 1271: 『数独・ナンプレの解答をランダムで作りたい』（asa）
数独・ナンプレ(9×9)の解答をランダムに作成した ... Dim s As Variant Dim shft As Double Dim a As Long If r >= P31 Then a = r - P32 Else a = r a = a Xor Int ... (r * M30) If a < 0 Then r = a + P32 Else r = a s = 1812433253 * ... CDec(r) + i: r = s - CDec(Int(s * M32)) * P32 If r >= P31 Then Ri = r - P31 Else Ri = r End Functio ... As Long) Dim r As Double mt(0) = s And &H7FFFFFFF If s < 0 Then r = P32 + s Else r = s For mti = 1 To M ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200426185317.txt - [detail] - similar

[[20100810124354]] 1271: 『セルの文字列をガンチャートの横棒上に表示するには』（くう）
Excel2003/WindowsXP(SP3)です。ガン ... u = Me.Range("D1", Me.Range("D1").End(xlToRight)) If Not t Is Nothing Then For Each r In t r(1, 3).Resi ... たがるとすると d = Application.Match(r.Value2, u, 0) If Not IsError(d) Then r(1, d + 2) = r(1, 0) End If N ... ext End If End Sub （ウッシ） ---- ウッシさま、早速有り難うご ... u = Me.Range("M7", Me.Range("M7").End(xlToRight)) If Not t Is Nothing Then For Each r In t r(1, 9).Resi ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201008/20100810124354.txt - [detail] - similar

[[20130429110314]] 1271: 『IF関数ネストで結果がうまく出ない』（プーダン）
Excel2002,Windows 7 バレーでの勝点を出す計算式で ... et数 E2 Bチーム計算結果 F2 Cチーム計算結果 Bチーム=IF(A2>D2,10,IF(B1+B2=C1+C2,5,IF(B1+B2=C1+C2,8,2))) Cチ ... ーム=IF(A2<D2,10,IF(B1+B2=C1+C2,5,IF(B1+B2<C1+C2,8,2))) こ ... す。 ---- 実際はこんな感じになるのでしょうね Bチーム=IF(A2>D2,10,IF(A2<D2,0,IF(B1+B2=C1+C2,5,IF(B1+B2=C1+C ... 2,8,2)))) Cチーム=IF(A2<D2,10,IF(A2>D2,0,IF(B1+B2=C1+C2,5,IF(B1+B2<C1+C ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201304/20130429110314.txt - [detail] - similar

[[20161128150724]] 1271: 『関数に（入り子）について』（MS）以下について 0なら"未入金"を表示し 0以上なら F6-G6 それ以外"" ... ますか? 初歩的ですみません。よろしくお願いします。 =IF(G6=0,"未入金",IF(G6>0,F6-G6,"")) ＜使用 Excel:Exc ... と判断される。面倒でもまず、""と比較してみてくれ。 =IF(G6="","",IF(G6=0,"未入金",IF(G6>0,F6-G6,""))) ある ... いは =IF(G6>0,F6-G6,IF(OR(G6="",G6<0),"","未入金")) か? （ね ... 8(月) 15:17 ---- （ねむねむ）さん速攻すみません。 IF(G6="","" この条件も入れなくてはだめなんですねあり ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201611/20161128150724.txt - [detail] - similar

[[20070122064354]] 1271: 『分類と並び替え』（BOXY）
過去ログを調べましたが、似たようなものがありましたがアレンジ方法がよ ... Header:=xlYes For Each c In .Range("A5:A" & lRow) If c.Offset(0, 2).Value = 2 Then c.Font.ColorIndex = ... 3 End If Next c .Range("D:D").Clear .Range("1:3").Delete En ... 文字色を赤に設定 For Each c In .Range("A5:A" & lRow) If c.Offset(0, 3).Value = 2 Then c.Font.ColorIndex = ... 3 End If Next c '---E列をクリア、1〜3行目を削除 .Range("E:E ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070122064354.txt - [detail] - similar

訪問者：カウンタ