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

Results of 111 - 120 of about 37655 for IF (0.015 sec.)

[[20211122065807]] 1299: 『マクロで「飛び飛びセル選択に対応する指定行範囲クリア」』（マイン）
お世話になっております。質 ... As Long, IDrow As Long With ActiveSheet '▼選択禁止 If SelTopCol <= 29 Then MsgBox "項目は選択できません" ... o r Step 8'セル位置からID行=クリアする先頭行を特定 If Not Application.Intersect(ActiveCell, Range(Cells( ... と思います。 SelTopCol = SelectArea.Cells(1).Column If SelTopCol <= 29 Then ■2 解ってやっているなら別によ ... います。 Sub 別案() Dim i As Long Dim MyRNG As Range If TypeName(Selection) <> "Range" Then MsgBox "セル以 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202111/20211122065807.txt - [detail] - similar

[[20150207120851]] 1299: 『指定セルを選択するとFormを表示させる方法』（まさ）
引き続きお世話になります。下記コードは、ワ ... の場合はFormを閉じるといった動作をします。質問は、 IF Target.Row = 4 And Target.Column = 6 Then の部分に ... ついて ↓ IF Target. Range("F4") Then と言った感じで記載したいの ... b Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 4 And Target.Column = 6 Then UserForm ... 1.Show vbModeless Else If Target.Row = 13 And Target.Column = 6 Then UserFor ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150207120851.txt - [detail] - similar

[[20060720151847]] 1299: 『住所の分割について』（裕）
1つのセルに都道府県〜の住所があり分割したいのですができますでしょう ... eEvents = True Set tbl = Range(data.Address(0, 0)) If tbl.Rows.Count > 1 Then adrs = data.Address(0, 0) ... e ActiveCell.Formula = "=yata (" & adrs1 & ")" End If sp_data = "" If data = "" Then yata = "": Exit Fun ... ata, 3) & "," mid_cnt = 3 Case Else For i = 3 To 4 If Mid(data, i, 1) = "県" Then sp_data = Left(data, i ... ) & "," mid_cnt = i Exit For End If Next i End Select get_data = Mid(data, mid_cnt + 1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200607/20060720151847.txt - [detail] - similar

[[20050409005752]] 1299: 『if文の重複について』（こまったさん）
if文の重複に回数の限度はありますか? 10条件のif重複を行いた ... 〜11点 → 「I」と表示 I 10〜 1点 → 「J」と表示関数 =if(A1<11,"J",if(A1<21,"I",if(A1<31,"H",if(A1<41,"G",i ... f(A1<51,"F",if(A1<61,"E",if(A1<71,"D",if(A1<81,"C",if(A1<91,"B"," ... てVLOOKUP関数を使ったほうがいいような.... どうしてもIF文を使うのなら、 =IF(A1<11,"J",IF(A1<21,"I",IF(A1<31 ... ,"H",IF(A1<41,"G",IF(A1<51,"F","")))))&IF(A1<51,"",IF(A1<6 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200504/20050409005752.txt - [detail] - similar

[[20180830010736]] 1299: 『IF文の条件分岐を減らしたいです。』（moto）
下記の数式で、IF文を減らして、処理速度を上げる方法 ... を教えてください。 = IF(AND(A1=24,B1=31,C1=12,D1=365),1, IF(AND(A1<>24,B1= ... 31,C1=12,D1=365),2, IF(AND(A1=24,B1<>31,C1=12,D1=365),1, IF(AND(A1<>24,B1 ... <>31,C1=12,D1=365),3, IF(AND(A1=24,B1=31,C1<>12,D1=365),4, IF(AND(A1<>24,B1 ... =31,C1<>12,D1=365),5, IF(AND(A1=24,B1<>31,C1<>12,D1=365),4, IF(AND(A1=24,B1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201808/20180830010736.txt - [detail] - similar

[[20090819104249]] 1299: 『VBA で集計』（m-o-mo）
Wd Xp エクセル2000です。 seiya さんありがとうございます。レスの続きをよ ... To UBound(b, 1) Step 9 For ii = 2 To UBound(a, 1) If (Year(a(ii, 1)) = Year(b(i, 1))) * (Month(a(ii, 1) ... h(b(i, 1))) Then myInd = 0 For iii = 5 To 7 Step 2 If a(ii, iii) = b(i, 3) Then myInd = iii : Exit For E ... nd If Next If myInd > 0 Then For iii = i To i + 6 If (b( ... : b(iii, myInd + 1) = b(iii, myInd + 1) + a(i, 6) If a(i, 4) = "GK" Then b(iii, 9) = b(iii, 9) + a(i, 5 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200908/20090819104249.txt - [detail] - similar

[[20220511071313]] 1293: 『ユーザーフォームのプログレスバーで進捗を見たい』（実装野郎）
おはようございます。再度お世話に ... heets("yyyy").Range("B23").Value, LookAt:=xlWhole) If Not myRange Is Nothing Then myAddress = myRange.Ad ... uf) buf = Dir() Loop Unload Me UserForm30.Show End If が現状です。これをユーザーフォームを開きその中のプ ... ogressElements](クラスモジュール) Option Explicit #If False Then 'IDEにEnum定数名の大文字・小文字を認識さ ... vate peShuttleSwing Private peShuttleRetarded #End If Private Type apiCursorPos X As Long Y As Long End ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202205/20220511071313.txt - [detail] - similar

[[20131105121455]] 1293: 『Comboboxリスト抽出』（KISS）
Ver2010 Win7 いつも大変お世話になっております下記の件大変お手数で ... e Next リスト.Add 各セル.Value, CStr(各セル.Value) If Err.Number = 0 Then Me.ComboBox1.AddItem 各セル.Va ... lue End If On Error GoTo 0 Next ' 列 = "B" 上端セル = 列 & "2 ... e Next リスト.Add 各セル.Value, CStr(各セル.Value) If Err.Number = 0 Then Me.ComboBox2.AddItem 各セル.Va ... lue End If On Error GoTo 0 Next ' 列 = "C" 上端セル = 列 & "2 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201311/20131105121455.txt - [detail] - similar

[[20081207220415]] 1293: 『ユーザーフォームのTextBoxの値をセルに入力。なんですが・・・』（メソッドマン）
Excel2003 Window ... As Range With Worksheets("数量表").Range("a4:a12") If .Range("a" & .Rows.Count).Value <> "" Then MsgBox ... Else Set rng = .Range("a" & .Rows.Count).End(xlUp) If rng.Row >= 4 Then Set rng = rng.Range("a2") Else S ... et rng = .Range("a1") End If rng.Value = TextBox1.Text End If End With End Sub ... 数量表").Range("a4:a12") Set r = .Find("",,,xlWhole) If r Is Nothing Then MsgBox "No room to dump the data ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081207220415.txt - [detail] - similar

[[20150306215405]] 1293: 『指定範囲内で指定した文字列を表示させた時に(?U)』（ちぃさん）
すみません。 [[20150306131532]] コ ... r '変更セル行番号 Dim s '開始行 Dim rc2 As Integer If Target.Address = "$F$2" Then rc2 = MsgBox("日時を転 ... 記しますか?", vbYesNo + vbQuestion, "確認") If rc2 = vbYes Then MsgBox "処理します" With Sheets(" ... ") s = 22 cp = 2 re = .Cells(30, cp).End(xlUp).Row If re < s Then re = s + 3 .Cells(re + 1, cp) = Now() ... .Value End With Else MsgBox "処理を中断します" End If End If End Sub こちらです。 Sheet1はこのような感じ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150306215405.txt - [detail] - similar

訪問者：カウンタ