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

Results of 121 - 130 of about 37655 for IF (0.014 sec.)

[[20100327171634]] 1293: 『セル範囲の選択』（どかべん）
Excel2003/WindowsXP オートフィルタで検索したデータの、"B3:H3”から ... lls.Count).Row End With For i = myRow To 1 Step -1 If .Cells(i, 1).EntireRow.Hidden = False Then MsgBox ... e(.Cells(i, 2), .Cells(i, 8)).Address Exit For End If Next i End With ちなみに、最初に提示したものも、↑も ... ため、消してしまうということです。それを避けるため、If文を使用していますが、それでも期待どうり作動する、マ ... ange(Cells(上, 左), Cells(上, 左)).End(xlDown).Row If 下 = Rows.Count Then Sheets("原本").Select Selecti ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100327171634.txt - [detail] - similar

[[20231116211156]] 1289: 『画像の任意の範囲のRGB値をエクセルでデータ化したい』（てつ）
恐縮です、どなたかご教授頂ければ幸 ... Private Function GetBmpfromClipboard() As LongPtr If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then Exi ... t Function If OpenClipboard(0&) <> 0 Then GetBmpfromClipboard = ... etClipboardData(CF_BITMAP) Call CloseClipboard End If End Function Private Function GetARGBofBmp(ByVal h ... 得() Dim hBmp As LongPtr hBmp = GetBmpfromClipboard If hBmp = 0 Then Exit Sub Dim px() As typeARGB, v() A ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231116211156.txt - [detail] - similar

[[20061225182121]] 1289: 『組み合わせ』（teni）
2人対2人の試合の組合せなんですが、参加人数によってランダムな組み合わせを求 ... InputBox("総人数を入力してくらはい。"), vbNarrow)) If data = 0 Then Exit Sub Application.ScreenUpdating ... ction.Combin(data, 2) t = 1 Cnt = data x = 1 m = 1 If data < 4 Then MsgBox "それくらいわかりまっしゃろ!" ... Exit Sub ElseIf data > 6 Then MsgBox "このマクロは未だその機能をサ ... Else w = WorksheetFunction.Combin(data - 2, 2) End If ReDim ary(1 To data) For i = 1 To data ary(i) = i ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200612/20061225182121.txt - [detail] - similar

[[20040903053436]] 1289: 『空白を表示させるには?』（おろろ）
指定したセルの範囲内で出現した文字の中で、その出現回数が最小 ... 表示するための数式をいれてあります。この数式は、 =IF(AL16=MIN(AL16,AM16,AN16,AL17,AM17),"A","") &IF(AM1 ... 6=MIN(AL16,AM16,AN16,AL17,AM17),"B","") &IF(AN16=MIN(AL16,AM16,AN16,AL17,AM17),"C","") &IF(AL1 ... 7=MIN(AL16,AM16,AN16,AL17,AM17),"D","") &IF(AM17=MIN(AL16,AM16,AN16,AL17,AM17),"E","") で、実際 ... た場合は、「空白」とすればいいんだろうなぁ、と思い、 IF(AL16=0,AM16=0,AN16=0,AL17=0,AM17=0,"" を、上記した ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200409/20040903053436.txt - [detail] - similar

[[20190830172334]] 1289: 『ifand関数を続けるとエラーが出る理由が知りたいです。』（よしおか）
すみません、お手数ですが教え ... を組みたいと考えています。組み立てた式は以下です。 =IF(AND(K7="総合",(BF7<VLOOKUP(CA7,'ゾーン（計算用）'! ... $B$4:$E$10,2,FALSE)))=TRUE,"下限以下",IF(BF7>=VLOOKUP(CA7,'ゾーン（計算用）'!$B$4:$E$10,4,F ... ALSE),"オーバー",IF(BF7<VLOOKUP(CA7,'ゾーン（計算用）'!$B$4:$E$10,3,FA ... LSE),"ゾーン?T","ゾーン?U"))),IF(AND(K7="事務",(BF7<VLOOKUP(CA7,'ゾーン（計算用）'! ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201908/20190830172334.txt - [detail] - similar

[[20160122102303]] 1289: 『Select case文で複数条件』（南橋）
For Each Rng In Selection If Cells(Row, "A").Value = 50 Then ... e 1 To 50 処理2 Case 1 To 100 処理3 End Select End If Next Select文で、この文だと処理2と処理3に当てはまる ... ているので当然だと思うが。 For Each rng In Selection If Cells(row, "A").Value = 50 Then If x >= 1 Then If ... x <= 10 Then 処理1 End If If x <= 50 Then 処理2 End If If x <= 100 Then 処理 ... 3 End If End If End If Next あるいは For Each rng In Select ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201601/20160122102303.txt - [detail] - similar

[[20061002220044]] 1289: 『複数の数字の合計』（MATT）
はじめまして。早速ですが以下の内容よろしくお願いします。近所のガソ ... s.Count s_data = Val(StrConv(tbl(1, n), vbNarrow)) If data + s_data >= 150 Then If data + s_data - 150 < ... ).Address(0, 0) y(1) = tbl(1, n).Address(0, 0) End If End If Next n Next i matt = x + 150 & "," & y(0) & ... ct Case mai Case 4 For i = 1 To .Columns.Count - 3 If tbl(1, i) <> "" Then data1 = Val(StrConv(tbl(1, i) ... , vbNarrow)) For n = i + 1 To .Columns.Count - 2 If tbl(1, n) <> "" Then data2 = data1 + Val(StrConv(t ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200610/20061002220044.txt - [detail] - similar

[[20230402182354]] 1289: 『複雑なIF関数』（桜）
初めまして。 IF関数で10種類の条件分岐したいのですが、一応結果は導けたよう ... 、下記です。途中まで同じ条件のものはより複雑な条件をIF文のより先にすることで答えは合うようですが、このよう ... な方法でやるしかないでしょうか? =IF(AND(A3="〇",B3=1,D3="△"),"分類1",IF(AND(A3="〇",B3 ... =2,C3="い",D3="△"),"分類8",IF(AND(A3="〇",B3=2,D3="△"),"分類3",IF(AND(A3="〇",B3 ... =2,C3="い"),"分類7",IF(AND(A3="〇",B3=2),"分類2",IF(AND(A3="〇",B3=3,C3=" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202304/20230402182354.txt - [detail] - similar

[[20150407091922]] 1289: 『賞味期限付き在庫管理。レイアウト相談』（うめ）
↓前回の質問『賞味期限を早い順に処理する在庫管理 ... ルで考えないとどこかで躓くと思いますよ。単純に「FIFOで在庫が必ず減っていくので、とにかく品番と数量を入 ... 。入庫ID（入庫日）は、「内部ロット」として、自社でFIFOの目安に使えばよいと思います。また同じ日付で別の外 ... '転記情報列を含める ValOfInOut = rngOfInOut.Value2 If dataValidation(rowsBal, valOfBal, rowsInOut, ValOf ... lCkResult = MinusBalDefDeadL(valOfBal, ValOfInOut) If balCkResult <> "" Then MsgBox "事前残高チェッ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150407091922.txt - [detail] - similar

[[20121026092804]] 1289: 『指定したbメッセージボックス複数削除したいんですが?』（ピン）
Excel2007 今、下記のようなマクロに ... 認メッセージの表示（キャンセルの場合マクロを抜ける） If MsgBox("データの登録データを削除しますか。", vbOKC ... cel + 32, "削除確認") = vbCancel Then Exit Sub End If InputData: Sheets("データ").Select Range("A65536") ... .Value, 1) '<何も入力せずOKの場合、再入力します。> If myNo = "" Then MsgBox "未入力です。", 16, "再確認" ... GoTo InputData End If '<キャンセルの場合、処理を終わりにします。> If myN ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201210/20121026092804.txt - [detail] - similar

訪問者：カウンタ