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

Results of 161 - 170 of about 37697 for IF (0.016 sec.)

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

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

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

[[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","") ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070129103230.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

[[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上で期 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202009/20200922011420.txt - [detail] - similar

[[20100908142118]] 1271: 『特定の名称や時間帯によって加算額や基本給を自動計算したい』（knight）
サービス種類が「身体○」（ ... ますが、うまくできない所があるので教えて下さい。 F2=IF(N(D32),ROUND(MAX(0,(MIN(INT(B32)+3/4,C32*1)-MAX(IN ... T(B32)+1/3,B32*1)))*24,5),"") G2=IF(N(D32),D32-F32,"") H2=IF(E32="","",IF(COUNTIF(E32, ... "身*"),MIN(MID(E32,2+COUNTIF(E32,"*身体*")*2,1),3),COUNTIF(E32,"*居身体*")*MIN( ... D32/0.5,3))*(200)) I2=IF(G32<=0.33,0,IF(E32="会議",0,(G32*300))) J2=IF(E32= ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201009/20100908142118.txt - [detail] - similar

[[20111030152450]] 1271: 『オートフィルタ—と入力規則』（JB）
[エクセルのバージョン]Excel2002 シート1 （会社名に対し最大2件 ... End(xlUp).Row).Value End With With Target.Cells(1) If Not Application.Intersect(.Cells, Range(StAra).Res ... (, 1)) Is Nothing Then For i = 2 To UBound(tbl, 1) If Not dic.Exists(tbl(i, 1)) Then dic(tbl(i, 1)) = i ... ListWord = ListWord & "," & tbl(i, 1) End If Next ClAra = .Resize(2, 3).Address End If If Not A ... SearWord = .Offset(, -1).MergeArea.Cells(1).Value If SearWord <> "" Then For i = 2 To UBound(tbl, 1) If ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201110/20111030152450.txt - [detail] - similar

[[20191011155444]] 1266: 『VBAを用いた複雑なデータ比較（再投稿）』（ぬまる猫）以前、ご質問させて頂き多くの方々からご回答 ... y(0) ReDim w(0) Application.ScreenUpdating = False If Not Evaluate("=ISREF(作業用!A1)") Then Sheets.Add. ... Range("A1") .Range("A:A,C:F,H:M,O:R,T:X").Delete Shift:=xlToLeft .Columns("C:C").Insert Shift:=xlToRight ... xlCellTypeConstants, 3).Areas For Each r In MyTblA If u Is Nothing Then Set u = r(1, 1) Else Set u = Uni ... on(u, r(1, 1)) End If Next For Each rr In MyTblB If u Is Nothing Then Se ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191011155444.txt - [detail] - similar

[[20221011192444]] 1266: 『エクセルのマクロを使用したコピペについて』（マクロって楽しいな〜）
エクセルのマクロを使用したコ ... ー無視をしておく） On Error GoTo 0 'エラー無視おわり If Destination Is Nothing Then Exit Sub '貼り付け先範 ... のでしょうか? 下記の形で行うと、B列からAA列まで=COUNTIF(H:H,H2)が値貼り付けされた状態で入ります。 Sub 極端 ... ("B2").End(xlDown).Offset(, -1)) .Formula = "=COUNTIF(H:H,H2)" .Copy .PasteSpecial Paste:=xlPasteValues ... nks) '空白セルを変数に入れる貼付先.Value = "=COUNTIF(H:H,H2)" '空白セルに数式を入れる（数式は先頭セル基 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221011192444.txt - [detail] - similar

訪問者：カウンタ