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

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

[[20240208144349]] 1326: 『ファイルの削除』（増毛）
外付け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

[[20191130210527]] 1326: 『希望調査結果の振り分けについて』（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

[[20110414095126]] 1326: 『数式が多すぎてエラーになるのですが・・・』（とも）
はじめまして、宜しくお願いします。 =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]] 1322: 『背景色のある行番号を取得するユーザー定義関数』（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]] 1322: 『エクセル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]] 1322: 『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]] 1322: 『消去したい』（おじさん）
おたずねします。 ×がついているセルを見て左の値を消去するコードを作成し ... ます。間違いの箇所を教えてください。 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]] 1322: 『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

[[20070126230757]] 1317: 『教えてください VLOOKUPを使いすぎて。。。。』（パー子）
次のようなデーターを作ってみました。デ ... にデーターを自動出力 E列はシート3と4の集計を行い（SUMIF）残りQTYがいくつかを計算 ---- >データー更新に時間が ... et As Range) Dim data As String, i As Long, x, tbl If Target.Count > 1 Then Exit Sub If Target.Column = ... n = 4 And Target = "" Then Target.Offset(, 1) = "" If Target.Column = 2 Then Target.Offset(, -1) = "" En ... d If Exit Sub End If If Target.Column <> 3 And Target.C ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070126230757.txt - [detail] - similar

[[20100316112608]] 1317: 『同じシートでマクロを組む場合』（あさ）
Private Sub Worksheet_Change(ByVal Target As Range) A行 ... rivate Sub Worksheet_Change(ByVal Target As Range) If or(target.columns = 1,target.columns = 2) Then els ... eif or(target.column = 3,target.column = 4) Then とか、 ... すが、ワークシート関数とVBAの表記の違いが・・・^^; >If or(target.columns = 1,target.columns = 2) Then >el ... seif or(target.column = 3,target.column = 4) Then If Ta ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100316112608.txt - [detail] - similar

訪問者：カウンタ