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

Results of 301 - 310 of about 37699 for IF (0.022 sec.)

[[20210607172300]] 1228: 『このVBAをもっと軽くできますか??』（やす）
Sub 転記用09月() Dim MyRNG As Range Dim myData As Va ... ant Dim myUnion As Range Dim n Dim k Dim I As Long If vbYes = MsgBox("実行すると戻せません。実行しますか ... ました。" Else MsgBox "中止しました。" Exit Sub End If n = Cells(Rows.Count, "B").End(xlUp).Row For k = 6 ... '比べる列 For I = LBound(myData) To UBound(myData) If myData(I, 1) <> myData(I, 2) Then If myUnion Is No ... se Set myUnion = Union(myUnion, MyRNG.Rows(I)) End If End If Next I If Not myUnion Is Nothing Then myUni ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202106/20210607172300.txt - [detail] - similar

[[20050814221153]] 1228: 『条件式について』（義経）
IF関数は最高で7回までしか一つの数式内で使用できないのでしょうか? 7回以 ... ったはずです。ですから、普通に7回以上使って下さい。 =IF(IF(IF(IF(IF(IF(IF(IF・・・はダメだけど =IF( IF(IF( ... IF(IF・・・IF(IF・・・IF(…のような使い方なら、 8回でも9回 ... も普通に使う数式ならば、足りると思いますよ。 ---- >IF関数は最高で7回までしか一つの数式内で使用できないので ... ) ネストとは関数を入れ子構造にすることで、例えば =IF( 条件1 , A , IF( 条件2 , B , IF( 条件3, C, D))) の ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050814221153.txt - [detail] - similar

[[20211213141600]] 1228: 『期限切れの名称表示および日付の更新』（マカロニ）
こんにちは。どうにもこうにも上手く動作ができ ... To Lastrow1 '15行目が見出しで16行目から一覧が表示 If Cells(i, 8) >= Max_Score Then 'もしHの列の日付がto ... ow '指定の期限が切れている場合、変数にデータを格納 If Cells(i, 8) < TargetDay Then 期限 = 期限 & Cells(i ... , 1) End If Next i If 期限 = "" Then MsgBox "期限切れはありませ ... ん。" Unload Me Else 【条件コード】 end if end sub 1,期限切れの名称を”期限”に格納し、ラベルに ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202112/20211213141600.txt - [detail] - similar

[[20150225213651]] 1228: 『ユーザーフォームから別ファイルへ転記したい』（ちぃちゃん）
こんばんは。今回初めてユーザーフォ ... & myRow).Value = tot .Range("B" & myRow).Value = IIf(OptionButton1.Value, "済", "未") End With End Sub ... もし、そうされるなら .Range("B" & myRow).Value = IIf(OptionButton1.Value, "済", "未") ここを .Range("B" ... & myRow).Value = IIf(CheckBox1.Value, "済", "未") にかえればOKです。（ ... rols("CheckBox" & i).Enabled = Not CheckBox1.Value If CheckBox1.Value Then Controls("CheckBox" & i).Valu ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150225213651.txt - [detail] - similar

[[20111006103737]] 1228: 『複数のIF関数の組み合わせ（順序）方を教えてください』（able）複数のIF関数の組み合わせ方を教えて ... Gの条件にわかれていますこの全ての条件を満たすようなIF関数を書きたいのですが IFが多くて初心者なのでわけが分 ... りません初心者の私にわかるのは =IF(A<>0,●,■)くらいです。上記複数のIFを組み合わせる順 ... です ---- 一旦一つずつ作ってみると良いと思います。 =IF(A<>0,●,■) ●の時 IF(AN=AU,○,□) □の時 IF(AK<>AT,◎,◇) ... ■の時 IF(AN=AU,☆,★) 最後にそれぞれの所に、それぞれを当てはめ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201110/20111006103737.txt - [detail] - similar

[[20090330114956]] 1228: 『ネスト制限の回避』（メタリン）
AAA→BBB→CCC→DDD・・・・・HHH→I I I→AAAというように9個の要素で順 ... 番に回転させようとしているのですが、IF関数にはネストの制限があるようでうまくいきません。数 ... どのように対処すればいいのでしょうか?お教え下さい。 =IF(A1="AAA","BBB",IF(A1="BBB","CCC",IF(A1="CCC","DDD" ... ,IF(A1="DDD","EEE",IF(A1="EEE","FFF",IF(A1="FFF","GGG" ... ,IF(A1="GGG","HHH",IF(A1="HHH","I I I",IF(A1="I I I"," ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200903/20090330114956.txt - [detail] - similar

[[20101026122039]] 1228: 『封筒印刷』（クミクミ）
2007 XP 以前こちらで印刷範囲のマクロを教えていただき、使用させていただい ... s Long With ActiveSheet For i = 2179 To 1 Step -22 If .Range("O" & i).Value <> "" Then .PageSetup.PrintA ... rea = "A1:P" & i + 21 Exit For End If Next i End With End Sub ↑が長3封筒の場合で ↓が角2封 ... s Long With ActiveSheet For i = 1328 To 1 Step -13 If .Range("O" & i).Value <> "" Then .PageSetup.PrintA ... rea = "A1:U" & i + 12 Exit For End If Next i End With End Sub 現在は2つのブックに分けて使 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201010/20101026122039.txt - [detail] - similar

[[20131014154725]] 1228: 『ログを集計するマクロを作りたい』（ぐりむ）
お久しぶりです。前回の [[20130918095939]] でウッシ ... Title = "フォルダを選択" .AllowMultiSelect = False If .Show = -1 Then fl = .SelectedItems(1) Else Exit S ... ub End If End With folN = Dir(fl, vbDirectory) On Error Resu ... fName = Dir(fl & "¥*.log") Do While Len(fName) > 0 If sh.Range("A" & Rows.Count).End(xlUp).Row < 3 Then ... = sh.Range("A" & Rows.Count).End(xlUp).Row + 1 End If Set bk = Workbooks.Open(fl & "¥" & fName, False, T ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201310/20131014154725.txt - [detail] - similar

[[20080713193652]] 1228: 『コマンドボタンで他シート保護』（taka）
いつもお世話になっています。過去ログで自分の知りたいコ ... m MyPass1 As String Const MyPass As String = "123" If ActiveSheet.ProtectContents = True Then MyPass1 = ... prompt:="パスワードを入力してください。", Type:=2) If MyPass1 = "False" Then Exit Sub If MyPass1 <> MyPa ... = MsgBox("WorkSheetのロックを解除します", vbYesNo) If Ans = vbYes Then ActiveSheet.Unprotect Password:=M ... AutoSize = True End With MsgBox "解除しました" End If End If Else Ans = MsgBox("WorkSheetをロックします" ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080713193652.txt - [detail] - similar

[[20130523151242]] 1228: 『セル内の文字列の操作』（サファ者）
IC1,IC2,IC3,IC4,IC6,IC8,IC10,IC11,IC12,IC14 この文字列を IC ... ) f = LBound(v) For i = LBound(v) To UBound(v) - 1 If Val(v(i)) + 1 <> Val(v(i + 1)) Then If i - f > 1 T ... Else For x = f To i k = k + 1 w(k) = v(x) Next End If f = i + 1 End If Next ReDim Preserve w(1 To k) Msg ... m cw As String Dim vw As Variant Dim i As Long Dim iFlag As Long Dim iw1 As Long Dim iw2 As Long vw = Sp ... lit(Range("A1"), ",") cw = vw(0) iw2 = Mid(cw, 3) iFlag = 0 For i = 1 To UBound(vw) If 0 < iFlag Then i ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201305/20130523151242.txt - [detail] - similar

訪問者：カウンタ