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
Powered by
Hyper Estraier 1.4.13, with 96869 documents and 608041 words.
訪問者: