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

Results of 51 - 60 of about 37633 for IF (0.011 sec.)

[[20120222152309]] 1373: 『入荷データ入力時の枝番生成（2）』（雪だるま） [[20120111115844]] 上記の質問で入荷マスターにデー ... = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row If lngRows <= 0 Then ComboBox1.Clear Exit Sub End If ... = 1 To lngRows 'A列の値がTextBox6の値と等しいなら If vntData(i, 1) = vntMark Then 'DictionaryにB列の値を ... として登録 dicIndex.Item(vntData(i, 2)) = Empty End If Next i 'Dictionryに登録が有ったなら If dicIndex.Co ... 示 .ListIndex = 0 End With Else ComboBox6.Clear End If dicIndex.RemoveAll End Sub Private Sub ComboBox1_C ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201202/20120222152309.txt - [detail] - similar

[[20221022080323]] 1373: 『迷路ってvbaで作れるのでしょうか』（羽田空港）
こんなことができるのかわからないのですが、お分か ... tiveCell.Value = cnt bl = False Do Until bl = True If mystop = False Then Exit Do bl = False Call nextrn ... g cnt = cnt + 1 '********** If cnt = 2 Then Set prerng = Worksheets(1).Cells(1, 1 ... ) If NRng.Address = prerng.Offset(1).Address Then With ... in .ColorIndex = xlAutomatic End With End With End If Else iti = prerng.Row - ActiveCell.Row & _ prerng. ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221022080323.txt - [detail] - similar

[[20180313225625]] 1373: 『予定表自動化』（いちか）
予定表の管理を作成していますが、入力の自動化したいのですが関数ですとセ ... rivate Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Target ... ing Then Exit Sub Application.EnableEvents = False If IsDate(Target.Value) Then Select Case Target.Colum ... e("CB" & Target.Row).Value = "出荷" End Select ElseIf Target.Value = "" Then Select Case Target.Column C ... Range("CB" & Target.Row).Value = "" End Select End If Application.EnableEvents = True End Sub v(=∩_∩=)v ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201803/20180313225625.txt - [detail] - similar

[[20070803193741]] 1369: 『ひとつのマスに複数の計算式を入れる場合』（つばめ）
見積書を作る段階で仕切り金額を粗利と掛率どち ... ない場合は空欄で収めたいです。よろしくお願いします。IF関数でよろしいんでしょうか? ---- > IF関数でよろしいん ... でしょうか? IF関数でよいと思いますけど、不都合がありますか? (Hatch ... を確認したい時「A1<>""」と言う書き方をします。どのIF関数から作って行っても良いと思いますが例えば↓の様に ... 考えてみるのはどうでしょう。 IF(条件 :Cが空欄でないか? 真の時:B÷(1-C)「Cが空欄でな ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200708/20070803193741.txt - [detail] - similar

[[20110716195114]] 1369: 『複雑な検索』（ちーず）
いつもお世話になっております。エクセルでここまでの検索が可能がどうか、 ... 検索シートのA1にキャベツ等をいれるとすれば、 B1 : =IF(ISERROR(VLOOKUP($A1,Sheet1!$A2:$G5,COLUMN(),0)),"" ... .Match(myCom, WorksheetFunction.Index(v, 0, 1), 0) If Not IsNumeric(ans) Then MsgBox "品番がありません" ... Else For i = 2 To UBound(v, 1) If i <> ans Then For x = 2 To 4 myArea = v(ans, x) If ... , 4)), 0)) Then For y = 5 To 7 myClass = v(ans, y) If Len(myClass) > 1 And IsNumeric(Application.Match(m ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201107/20110716195114.txt - [detail] - similar

[[20050627184922]] 1365: 『ユーザーフォーム』（マー）
With Worksheets("sheet2") .AutoFilterMode = False 'オートフィルタ解 ... , Criteria1:=Range("B11").Value '----------------- If .Range("A") = 0 Then msgBOX(”新規です登録ををします ... ”） End If '----------------- B11の値がsheet2のAの列にあるかを ... Long Dim msg As Integer With Worksheets("sheet2") If .Range("A1") = "" Then UserForm1.Show Exit Sub End ... If LastRow = .Range("A65536").End(xlUp).Row For n = 0 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200506/20050627184922.txt - [detail] - similar

[[20081112211632]] 1365: 『ランダムな振り方』（ランダム）
こんな事は無理でしょうか 4 A B C D 5 項目単価数量合計 6 abc ... m&, rest&, num&, i& targetSum = Range("D27").Value If Application.WorksheetFunction.Sum(Range("B2:B26")) ... tSum Mod 10 <> 0 Then MsgBox "解なし" Exit Sub End If Range("C2:D26").Value = "" Range("C2:C11").Value = ... = 26 To 2 Step -1 num = Int(rest / Cells(i, "B")) If num > 10 - Cells(i, "C") Then num = 10 - Cells(i, ... * Cells(i, "C") rest = rest - num * Cells(i, "B") If rest = 0 Then Exit Sub Next End Sub (Mook) ---- 面 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081112211632.txt - [detail] - similar

[[20160420131203]] 1360: 『メッセージボックスの使い方』（らん）
初めましての質問です。ファイルを閉じようとしたとき、指定 ... rivate Sub Workbook_BeforeClose(Cancel As Boolean) If Range("C23").Value = "はい" Then If Range("G25").V ... MsgBox "赤い箇所が未入力です。" Cancel = True End If End If If Range("D34").Value = "その他" Then If Ra ... MsgBox "赤い箇所が未入力です。" Cancel = True End If End If If Range("D34").Value = "その他" Then If Ra ... MsgBox "赤い箇所が未入力です。" Cancel = True End If End If If Range("C45").Value = "その他" Then If Ra ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201604/20160420131203.txt - [detail] - similar

[[20200719165227]] 1360: 『Msg Boxのコメントプレビューが出来ない為』（謙治）
kLY様、先ほどの続きでコメントプレビューが出 ... ong Sheets("請求書入力").Select Range("C3").Select If Range("C3") = "" Then MsgBox ("担当名が未入力です。 ... " & Chr(13) & "確認して下さい") Exit Sub End If Range("C4").Select If Range("C4") = "" Then MsgBox ... 力です。" & Chr(13) & "確認して下さい" Exit Sub End If Range("C5").Select If Range("C5") = "" Then MsgBox ... 力です。" & Chr(13) & "確認して下さい" Exit Sub End If Dim 確認 If Range("C5") <> "" Then 確認 = MsgBox(" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200719165227.txt - [detail] - similar

[[20190319161546]] 1354: 『ユーザーフォームで入金管理の入力と履歴表示』（えりか）
お世話になります。ユーザーフォーム上か ... ption = .Range("IE" & l) lbl請37.Caption = .Range("IF" & l) lbl請38.Caption = .Range("IG" & l) lbl請39.C ... しくおねがいします ---- Private Sub btn入力_Click() If txt請求額.Value = "" And txt入金額.Value = "" Then ... MsgBox "金額を入力してください" Exit Sub End If If txt入金額.Value <> "" And cmb入金方法.Value = " ... n MsgBox "入金方法を入力してください" Exit Sub End If If lbl日1.Caption = "" And lbl日2.Caption = "" The ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201903/20190319161546.txt - [detail] - similar

訪問者：カウンタ