advanced help
per page, with , order by , clip by
Results of 41 - 50 of about 37573 for IF (0.010 sec.)
[[20190918140726]] 1388
『ややこしい比較』(ぬまる猫)
下記のようにデータが並んでいます。 A、B列はサンプル50(A1)のある ... (ぬまる猫) 2019/09/18(水) 16:35 ---- まず E3セル:=IF(B3="","",IF(AND(A1>=50,A1<>"Time"),A1,E2)) F3セル: ... =IF(D3="","",IF(AND(C1>=50,C1<>"Time"),C1,F2)) G3セル: ... =IF(E3="","",MIN(IF(F$3:F$25000=E3,ABS(C$3:C$25000-A3) ... ,""))) H3セル:=IF(E3="","",IF(B3/IF(G3<0.05,SUMIFS(D$3:D$25000,F$3:F ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190918140726.txt - [detail] - similar
[[20180424173356]] 1388
『組み合わせの抽出』(運慶)
VBAでロジックを考えています。 与えられたデータの1行目の値を超える最 ... Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1 If .Cells(i, "B").Value = 0 Or AR1.Contains(.Cells(i, ... "A").Value) = False Then .Rows(i).Delete End If Next i iMax = .Cells(.Rows.Count, "A").End(xlUp).R ... tring(iMax, "0") Do While cPt <> String(iMax, "1") If Mid(cPt, iMax, 1) = "0" Then Mid(cPt, iMax, 1) = " ... ) = CStr(Val(Mid(cPt, iMax - 1, 1)) Mod 2 + 1) End If For i = iMax To 1 Step -1 If Mid(cPt, i, 1) = "2" ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201804/20180424173356.txt - [detail] - similar
[[20121118092049]] 1388
『マクロにて行列を非表示にしたい』(Masa)
以下の様な表があります。 マクロにて数値データがすべて ... mns.Count - 1).Offset(1, 1) For Each r In .Columns If WorksheetFunction.CountA(r) > 0 Then If ac Is Noth ... ing Then Set ac = r Else Set ac = Union(ac, r) End If End If Next For Each r In .Rows If WorksheetFuncti ... on.CountA(r) > 0 Then If ar Is Nothing Then Set ar = r Else Set ar = Union( ... ar, r) End If End If Next .EntireRow.Hidden = True .EntireColumn ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201211/20121118092049.txt - [detail] - similar
[[20051217124814]] 1388
『作業終了時間の計算』(mkz)
A B C D E 1 製品名 作業単位時間 数量 開始時間 作業完了時間 2 #111 ... d Sub Sub kyukei(myTime As Long) Dim rest0 As Long If myTime <= 600 Then rest0 = 0 If myTime > 600 And m ... yTime <= 720 Then rest0 = 10 If myTime > 720 And myTime <= 900 Then rest0 = 55 If ... myTime > 900 And myTime <= 1035 Then rest0 = 65 If myTime > 1035 Then rest0 = 80 myTime = rest0 End S ... ザー定義で、[mm]:ss にします ◆完了時間の式 F2=E2+D2+IF(E2+D2+"0:65"*1>"17:15"*1,"0:80",IF(E2+D2+"0:55"*1> ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200512/20051217124814.txt - [detail] - similar
[[20210324111343]] 1388
『チェックボタンが選択された範囲を印刷』(ETE)
ユーザーフォーム1にチェックボックスが4つあります ... m Result As Long Dim MyStr As String Dim i As Long If CheckBox1 = True Then Worksheets("Sheet1").PageSet ... up.PrintArea = "B3:E13" If CheckBox2 = True Then Worksheets("Sheet1").PageSet ... up.PrintArea = "B15:E25" If CheckBox3 = True Then Worksheets("Sheet1").PageSet ... up.PrintArea = "B27:E37" If CheckBox4 = True Then Worksheets("Sheet1").PageSet ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202103/20210324111343.txt - [detail] - similar
[[20070816144932]] 1383
『合計の検索』(ff)
例えば下記のように A 1 1050 2 136 3 258 ○ 4 341 ○ 5 228 6 226 ○ 7 189 8 225 ... o 2 ^ 9 - 1) For i = 1 To 2 ^ 9 - 1 For j = 1 To 9 If Val(Mid(Format(Val(Dec2(i)), "000000000"), j, 1)) ... buf = buf & " " & Range("A1").Offset(j).Value End If Next a(i) = Trim(buf) buf = "" Next Set dic = Crea ... aluate(Replace(a(i), " ", "+")) dic(b) = a(i) Next If dic.Exists(Range("A1").Value) Then x = Split(dic(R ... )) Else MsgBox "該当の組み合わせなし" Exit Sub End If Range("B2:B10").ClearContents For Each r In [A2:A1 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200708/20070816144932.txt - [detail] - similar
[[20041019234015]] 1383
『空白セルと全部のセルにデータあるものの比較』(ひろこ)
[計算したい部分に、空白セルと全部のセル ... き方はないものでしょうか。よろしく願いいたします。 =IF(B1="A",3,IF(B1="B",2,IF(B1="C",1,"")))+IF(C1="A",3 ... ,IF(C1="B",2,IF(C1="C",1,"")))+IF(D1="A",3,IF(D1="B",2 ... ,IF(D1="C",1,"")))+IF(E1="A",3,IF(E1="B",2,IF(E1="C",1 ... 指定しなければいいです。 v(=∩_∩=)v (SoulMan) =SUM(IF(B1="A",3,IF(B1="B",2,IF(B1="C",1))),IF(C1="A",3,IF ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200410/20041019234015.txt - [detail] - similar
[[20030822163744]] 1379
『四捨五入のまるめ計算について』(Nyal)
例えば、 A B(A1/計、%) 1 21 30.43(数式=round(A1/A$3*10 ... 1/A$4*10000)-0.5) D列に =RANK(C1,C$1:C$3,2) E列に =IF(A1/A$4*10000-INT(A1/A$4*10000)<0.5,"切上対象","切下 ... 何か簡単な方法はないでしょうか。 ---- B欄に下の式を =IF(A1="","",IF(AND(C$4<1,E1="切り上げ対象",D1=MAX(D$1 ... :D$3)),ROUND(A1/A$4*100,2)+0.01,IF(AND(C$4>0,E1="切り下げ対象",D1=MIN(D$1:D$3)),ROUND ... 1/A$4*10000)) BのTOTAL欄に下の式を 入力して下さい =IF(SUM(B1:B3)=0,"",IF(AND(C$4>0,SUM(B1:B3)<100),SUM(B ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200308/20030822163744.txt - [detail] - similar
[[20050528220604]] 1379
『セルのクリックで別シートに入力&印刷実行』(Kuro)
[セルのクリックで別シートに入力&セルのクリッ ... ghtClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Target.Column <> ... e MyR = Application.Match(MyNo, Sh1.Columns(7), 0) If IsError(MyR) Then MsgBox "D20セルは不正な値です。" ... た。" & vbCrLf & _ "受注bヘ " & MyNo & " です。" End If End Sub '////////////////////////////////////ここま ... ghtClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Target.Column <> ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050528220604.txt - [detail] - similar
[[20060609121502]] 1374
IFをあと2つ追加したいのですがエラーになってしまいます。』(たいへい)
お世話になります。下記の ... 関数を作りましたが、あとIF(TRUE=$N$5,N6/AC15*100)とIF(TRUE=$O$5,O6/AC15*100) ... ましたら教えてください。また、追加出来ない理由としてIF関数を並べる数に限界があるのか、カッコを付ける数に限 ... す。以上宜しくお願い致します。Excel2000 Windows2000 =IF(TRUE=$F$5,F6/AC15*100,IF(TRUE=$G$5,G6/AC15*100,IF( ... TRUE=$H$5,H6/AC15*100,IF(TRUE=$I$5,I6/AC15*100,IF(TRUE=$J$5,J6/AC15*100,IF( ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200606/20060609121502.txt - [detail] - similar
PREV 1 2 3 4 5 6 7 8 9 10 11 12 13 14 NEXT
Powered by Hyper Estraier 1.4.13, with 96869 documents and 608041 words.

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