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

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

[[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

[[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

[[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

[[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

[[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

[[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

[[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

[[20090924142553]] 1317: 『予選通過者に印をつけたい』（minami）
陸上競技大会の各種目出場者のリストがあります A B C D E F ... にも思うのですが。。。。? (HANA) ---- こんな感じ H7=IF(ISNUMBER(F7),IF(E7<=$D$2,"Q",IF(F7<=SMALL(IF($E$7: ... y しげちゃん ---- 訂正します（1列ずれてましたね） =IF(ISNUMBER(G7),IF(F7<=$F$2,"Q",IF(G7<=SMALL(IF($F$7: ... 14.55 3 14.55 48 7 Z 1 5 14.78 3 14.78 49 8 3 H5 =IF(AND(ISNUMBER(G5),I5<$E$2),IF(F5<=$F$2,"Q",IF(RANK( ... 9,1)<=$H$2,"q","")),"") →H5:H49フィルコピー I5 =I4+IF(B5="予選",1,0) →I5:I49フィルコピー J5 =IF(AND(ISNU ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090924142553.txt - [detail] - similar

[[20170410161206]] 1317: 『Worksheet_Change連結について』（satosi）
マクロ初心者です。プロシージャが2つあり、つなぎ方だと ... Target As Range) Dim セル代入 As Range With Target If .Count > 1 Then Exit Sub If .Value = "" Then Exit ... Sub If Intersect(Target, Range("C20:C500")) Is Nothing Th ... en Exit Sub If .Value < Range("C20").Value Then MsgBox "日付が起算 ... se .Value = "" Application.EnableEvents = True End If End With ==================== If Intersect(Target, ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201704/20170410161206.txt - [detail] - similar

訪問者：カウンタ