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

Results of 81 - 90 of about 37673 for IF (0.012 sec.)

[[20191130210527]] 1327: 『希望調査結果の振り分けについて』（kuro）
希望調査結果の振り分けについて。例えば、工事で1つのマ ... Each cc In sht1.Range("H:H").SpecialCells(2) x = 0 If Day(c.Value) <= 7 Then x = 2 If Day(c.Value) >= 9 ... Then x = 4 If x > 0 Then For i = 1 To x sht2.Range("A" & Rows.Co ... ksheetFunction.Text(cc.Value, " hh:mm") Next i End If Next cc Next c Set r = sht1.Range("A2") Do If r.Va ... lue = "" Then Exit Do If WorksheetFunction.CountA(r.Offset(, 1).Resize(, 3) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191130210527.txt - [detail] - similar

[[20240208144349]] 1327: 『ファイルの削除』（増毛）
外付けHDDに最初が、「アルファベット3桁の(又は4桁)-3桁数字+半角スペース ... "フォルダ選択") '入力がキャンセルされた場合は終了 If path = "" Then Exit Sub 'FileSystemObjectのオブジェ ... ダ内は出力しないようにしてあげればよいかと思います(IF文)。コンピュータが出したエラーメッセージは? なんと ... サブフォルダ内のファイルとサブフォルダを再帰的に出力 If folder.Name <> "$RECYCLE.BIN" Then '←この行を追加 ... Call OutputFilesAndFolders(folder) End If Next folder （増毛） 2024/02/08(木) 18:30:23 ---- ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202402/20240208144349.txt - [detail] - similar

[[20110414095126]] 1327: 『数式が多すぎてエラーになるのですが・・・』（とも）
はじめまして、宜しくお願いします。 =IF(L12= ... D12,E12,IF(L12=D13,E13,IF(L12=D14,E14, IF(L12=D15,E15,IF(L12= ... D16,E16,IF(L12=D17,E17, IF(L12=D18,E18,IF(L12=D19,E19,IF(L12= ... D20,E20, IF(L12=D21,E21,IF(L12=D22,E22,IF(L12=D23,E23, IF(L12= ... D24,E24,IF(L12=D25,E25,IF(L12=D26,E26, IF(L12=D27,E27,IF(L12= ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201104/20110414095126.txt - [detail] - similar

[[20231031004740]] 1321: 『背景色のある行番号を取得するユーザー定義関数』（TK）
件名のプログラムを作成しましたが、もう少し ... ans As Variant found = False For Each cell In arg If cell.Interior.Color <> "16777215" Then ans = ans & ... "," & cell.Row End If If found = False Then If cell.Interior.Color <> "1 ... 6777215" Then ans = cell.Row found = True End If End If Next cell FuncColor = ans Application.Volat ... s String Application.Volatile For Each cell In arg If cell.Interior.Color <> vbWhite Then ans = ans & ", ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202310/20231031004740.txt - [detail] - similar

[[20070914121123]] 1321: 『エクセルVBAでシートを読みこみSQL文に変換するには』（guaidao）
初めましてこんにちは。下記に表示 ... w, 5).Value 'フィールドID Do While FieldName <> "" If i_row <> 7 Then SQLString = SQLString + "," Print ... #1, SQLString End If FieldType = Cells(i_row, 6).Value 'フィールド属性 ... ldName + Chr(9) + Chr(9) + Chr(9) + FieldType Else If Len(FieldName) < 16 Then SQLString = Chr(9) + Fiel ... ring = Chr(9) + FieldName + Chr(9) + FieldType End If End If If FieldType = "Nvarchar" Or FieldType = "N ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200709/20070914121123.txt - [detail] - similar

[[20160615090431]] 1321: 『ExcelVBAについて』（わんこそば）
初めての投稿です。 ExcelVBAについての質問です。私は今マクロで ... i = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'X軸' If sh1.Cells(i, 8) <> sh1.Cells(i, 9) Then If sh2.Cel ... h2.Cells(i, 2 - 1) & "-" & sh2.Cells(i, 2 - 2) ElseIf sh1.Cells(i, 8) <> sh1.Cells(i, 9) Then sh2.Cells( ... h2.Cells(i, 2 - 1) & "-" & sh2.Cells(i, 2 - 2) ElseIf sh1.Cells(i, 8) = sh1.Cells(i, 9) Then ElseIf sh2. ... 2) Else sh2.Cells(i, 4) = sh2.Cells(i, 3 - 1) End If 'Y軸' If sh1.Cells(i, 10) <> sh1.Cells(i, 11) Then ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201606/20160615090431.txt - [detail] - similar

[[20191121095023]] 1321: 『消去したい』（おじさん）
おたずねします。 ×がついているセルを見て左の値を消去するコードを作成し ... ます。間違いの箇所を教えてください。 Sub KESIKOMI() If Range("D4") = "×" Then Range("C4").Value = "" Else ... Range("D5") = "×" Then Range("C5").Value = "" ElseIf Range("D6") = "×" Then Range("C6").Value = "" Else ... Range("D7") = "×" Then Range("C7").Value = "" ElseIf Range("D8") = "×" Then Range("C8").Value = "" Else ... Range("D9") = "×" Then Range("C9").Value = "" ElseIf Range("D10") = "×" Then Range("C10").Value = "" El ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191121095023.txt - [detail] - similar

[[20200715051835]] 1321: 『MsgBoxの』（謙児）
お世話になります。質問です。よろしくお願いいたします。 1つ目は、フォームコ ... さなければならないとわずらしさを感じるためです。） If Sheets("請求書入力").Range("c5") <> "" Then If Msg ... なっていますか?", vbYesNo) = vbNo Then Exit Sub End If End If If Sheets("請求書入力").Range("c6") = "" Th ... 入力です" & Chr(13) & "確認して下さい" Exit Sub End If If Sheets("請求書入力").Range("b10") = "" Then Msg ... 入力です" & Chr(13) & "確認して下さい" Exit Sub End If 後、xxが未入力と続きますが。以上ですが、ご教授のほ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200715051835.txt - [detail] - similar

[[20101218091150]] 1317: 『エクセル2003を使っていますIFを使って...』（Momo）
エクセル2003を使っています IFを使って以下の ... 28 350 400 450 500 2 1 2 3 4 5 6 7 9 10 11 3 4 52 =IF(C4<=50,C2,IF(C4<=100,D2,IF(C4<=150,E2,IF(C4<=200,F ... 2,IF (C4<=250,G2,IF(C4<=300,H2,IF(C4<=328,I2,IF(C4<=350 ... ,J2,IF (C4<=400,J2,IF(C2<=450,K2,IF(C4<=500,L2))))))))))) ... 4セルに表示する式を作りましたがエラーになります。 IF を使いすぎるとエラーになるようです何か良い方法はあ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101218091150.txt - [detail] - similar

[[20120308182553]] 1317: 『データをコピーして一部の内容を変更して挿入するマクロ』（ふーさん）
工場で生産指示したものをどこ ... = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row If lngRows <= 0 Then lngRows = 0 Else '最終列の後ろに ... ns).Resize(lngRows).Formula = "=Row()-" & .Row End If End With '「指示No」を無重複で取得 vntData = GetNu ... mb If Not VarType(vntData) = vbBoolean Then ComboBox1.Li ... st = vntData End If ComboBox2.ColumnCount = 2 'Dictionaryオブジェクトを ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201203/20120308182553.txt - [detail] - similar

訪問者：カウンタ