advanced help
per page, with , order by , clip by
Results of 151 - 160 of about 37655 for IF (0.017 sec.)
[[20080421164746]] 1276
『勤務表について』(勤務)
勤務交番表を作成しています。 エリアと時間が有り、エリアには、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
[[20120123155217]] 1276
『入荷マスタの更新』(雪だるま)
[[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
[[20111122110935]] 1276
『Excel在庫管理で入荷処理』(らんきち)
[[20111101135213]] [[20111110145634]] [[20111114163123]] ... ng Select Case Me.Tag Case "A" Call io商品(fnOpen) If Not make出荷指示書(fnOpen) Then CommandButton1.Ena ... False CommandButton3.Enabled = False Exit Sub End If Me.Caption = "出荷指示書作成(指示書を作成する出荷 ... 更新を行います。対象の出荷データを選んでください)" If Not make引当更新データ(fnGetList, v) Then CommandB ... .Enabled = False Else ListBox1.ColumnCount = 1 End If End Select ListBox1.List = v '以下はユーザーフォー ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111122110935.txt - [detail] - similar
[[20140908144924]] 1271
『ユーザーフォームモードレスでフォーカスを戻す』(あすな)
ユーザーフォームをモードレスで開き、必 ... xtBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox1.Value) = 0 Then MsgBox "納品希望日を入 ... 力してください" Cancel = True End If End Sub としました。ですが、フォーカス?カーソル?が ... xtBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox1.Value) = 0 Then MsgBox "納品希望日を入 ... 力してください" SendKeys "+{tab}" End If End Sub (???) 2014/09/08(月) 15:56 ---- ???さん回 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201409/20140908144924.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
[[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 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070122064354.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="","" この条件も入れなくてはだめなんですね あり ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201611/20161128150724.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
[[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
[[20040820102513]] 1271
IF関数を利用して』(0820)
IF関数を利用して、ある数値が 50円〜100円の間なら Aを 101円〜150円の ... Bを 表示する関数はどうしたらよいのでしょうか? ---- =IF(AND(A1>=50,A1<=100),"A",IF(AND(A1>=101,A1<=150),"B ... ---- 早速ありがとうございます。 それで、なのですがIF(・・・・) このカッコの中で使用できる例えば『IF』等 ... 50 A 3 101 B としてSheet1のA1に数値を入れるとして =IF(A1="","",VLOOKUP(A1,Sheet2!A1:B3,2)) などです。 ( ... ケン) ---- =IF( A1<=4, if( A1<=2, IF(A1<=1, if(A1<=0.5,1,2), if(A ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200408/20040820102513.txt - [detail] - similar
Powered by Hyper Estraier 1.4.13, with 97038 documents and 608037 words.

訪問者:カウンタValid HTML 4.01 Transitional