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

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

[[20080421164746]] 1275: 『勤務表について』（勤務）
勤務交番表を作成しています。エリアと時間が有り、エリアには、1,2,3,4, ... 910,11,12,13,F,F1,F2,F3」を一つずつ入力。 P100に =IF(COUNTA(P$13:P$91)=0,"",COUNTIF(P$13:P$91,$O100)) と ... して、AT116迄フィルドラッグ。 P94に =IF(P100="","",SUBSTITUTE(TRIM(IF(P100>1,$O100,"")&" " ... &IF(P101>1,$O101,"")&" "& IF(P102>1,$O102,"")&" "&IF(P ... 103>1,$O103,"")&" "&IF(P104>1,$O104,"")&" "&IF(P105>1,$O105,"")&" "& IF(P ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200804/20080421164746.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 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111101135213.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"). ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120123155217.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 ---- ↑ ある列か ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201104/20110420205815.txt - [detail] - similar

[[20060924015703]] 1271: 『シートモジュール』（ララダス）
Excel2002.WindowsXP使用こちらの過去ログを参考に↓のコードを作り ... ghtClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 4 Then Exit Sub If Target.Row > 34 Th ... en Exit Sub If Target.Column > 8 Then Exit Sub If Target.Column < ... 5 Then Exit Sub Cancel = True If Target.Value = "○" Then Target.Value = "" Else Tar ... get.Value = "○" End If End Sub よろしくお願いします。（ララダス） ---- T ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060924015703.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 ...; http://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 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201304/20130429110314.txt - [detail] - similar

[[20070129103230]] 1271: 『入力データを別シートに表記する方法2』（TOMOS）
先日、以下のような質問をさせていただき、BJさんよ ... g As Range For Each rg In Range("a1:g5") i = i + 1 If rg.Value = "○" Then ss = ss & "," & i End If Next ... 区切られて表示できるように思います (6UP) =SUBSTITUTE(IF(Sheet1!A$1=A1,",1","") &IF(Sheet1!B$1=A1,",2","") ... &IF(Sheet1!C$1=A1,",3","") &IF(Sheet1!D$1=A1,",4","") ... &IF(Sheet1!E$1=A1,",5","") &IF(Sheet1!F$1=A1,",6","") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070129103230.txt - [detail] - similar

[[20200922011420]] 1271: 『利用期限制限について』（GS）
質問よろしくお願いします。現在、同一book内に以下マクロにて利用制 ... en() Dim MyD As Date MyD = #4/30/2021 12:00:00 AM# If Now() >= MyD Then MsgBox "利用期限が過ぎました" & ... クは使用できません", 48 ThisWorkbook.Close False End If End Sub ＜使用 Excel:Excel2019、使用 OS:Windows10 ... lls(1, 1).Value .Close SaveChanges:=False End With If Date >= Date Then MsgBox "利用期限は" & myD & "です ... False Else MsgBox "利用期限は" & myD & "です" End If End Sub 自分でWebサーバー立てられるなら、Web上で期 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202009/20200922011420.txt - [detail] - similar

[[20161108151135]] 1271: 『VBAでガントチャートの作り方』（OPA）
現在VBAでガントチャートを作ろうと思ってるんですがわかりま ... cw = InputBox("便名を入力", "入力", "エクセル便") If cw <> "" Then Application.EnableEvents = False Wit ... Application.EnableEvents = True Cancel = True End If End Sub （???） 2016/11/08(火) 16:48 ---- β様お返 ... al Target As Range, Cancel As Boolean) With Target If .MergeCells = True Then If MsgBox("スケジュール削除 ... ts .Value = "" Application.EnableEvents = True End If End If End With End Sub （???） 2016/11/08(火) 17: ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201611/20161108151135.txt - [detail] - similar

訪問者：カウンタ