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

Results of 171 - 180 of about 37697 for IF (0.017 sec.)

[[20120912025453]] 1266: 『複数シートの色のついた行を別シートへ順番に転記したいです』（オクトパス）
Excel2003、WindowsXPを ... shTo.UsedRange.Clear For Each shFrom In Worksheets If Not shFrom Is shTo Then Set a = Nothing For Each r ... lse myColor = r.Columns(ckCol).Interior.ColorIndex If IsNull(myColor) Then flag = True Else If myColor < ... > xlNone Then flag = True End If If flag Then If a Is Nothing Then Set a = r Else S ... et a = Union(a, r) End If End If Next If Not a Is Nothing Then Set a = Union ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201209/20120912025453.txt - [detail] - similar

[[20190929192243]] 1266: 『シフト作成、1 コードの添削宜しくお願い致します。』（なのれい）
いつもお世話になっております。 ... = 末日 - 最終公休日 Cells(i, 6).Value = 月末連勤数 If Cells(i, 7) = "B" Then Cells(i, 8).Value = "出" En ... d If If Cells(i, 6) <= "2" Then Cells(i, 8).Value = "出 ... " If Cells(i, 6) <= "1" Then Cells(i, 9).Value = "出" I ... ls(i, 6) <= "0" Then Cells(i, 10).Value = "出" End If End If End If Next i If Range("D4").Value < 12 The ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190929192243.txt - [detail] - similar

[[20081101145236]] 1266: 『現在時刻の表示』（久下久光）
一つのセルに何時何分と（1分毎に動くようにしたい）表示したい --- ... d With For Each sp In Worksheets(1).DrawingObjects If sp.Name <> "SPkousin" And sp.Name <> "SPcls" Then ... AryStr = 十h2 End Select Select Case 時一位 Case 0 If AryStr = "" Then AryStr = 一h0 Else AryStr = ArySt ... r & "," & 一h0 End If Case 1 If AryStr = "" Then AryStr = 一h1 Else AryS ... tr = AryStr & "," & 一h1 End If Case 2 If AryStr = "" Then AryStr = 一h2 Else AryS ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081101145236.txt - [detail] - similar

[[20240227164655]] 1266: 『ElseIf がうまく動作しません』（やそめ）
数値を入力していくsheetで、日付とIDの自動入力をしたくて ... orksheet_Change(ByVal Target As Range) With Target If .Column = 2 Then If Target <> "" Then If .Offset(, ... en .Offset(, -1).Value = .Offset(-1, -1).Value End If If .Offset(, 1).Value = "" Then .Offset(, 1).Value ... = .Offset(-1, 1).Value End If End If ElseIf .Column = 3 Then MsgBox "IDが変更され ... ました" End If End With End Sub C列に入力したときにはメッセージボ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202402/20240227164655.txt - [detail] - similar

[[20100209195237]] 1266: 『IF関数について』（プーパン）
IF関数で2つ教えていただきたいのですが。 @=IF(A1=1,12,IF(A1=2,1,IF ... (A1=3,2,IF(A1=4,3,IF(A1=5,4,IF(A1=6,5,IF(A1=7,6,IF(A1=8,7,IF( ... A1=9,8,IF(A1=10,9,IF(A1=11,10,IF(A1=12,1)))))))))))) A=IF(B1 ... 。（えくせる青年）2010/2/9 20:50 ---- 1番の式の例 =IF(AND(A1>=1,A1<=12),CHOOSE(A1,12,1,2,3,4,5,6,7,8,9,1 ... 0,11),A1) (wisemac21) ---- （1）整数だけですか? > IF(A1=12,1) 12 → 1 なんですか? 12 → 11 じゃないんです ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201002/20100209195237.txt - [detail] - similar

[[20160830114249]] 1266: 『UserForm2で検索してリストボックスに表示、UserForm1に表示させて修正・変更登録』（もか）
はじめま ... Data2(), myno Dim i As Long, j As Long, cn As Long If TextBox1.Value = "" And TextBox2.Value = "" Then E ... 1 To 13) For i = LBound(myData) To UBound(myData) If myData(i, 3) Like "*" & TextBox1.Value & "*" And m ... myData(i, 12) myData2(cn, 13) = myData(i, 13) End If Next i '検索で一致したデータをリストボックスに表示 ... よろしいですか?" Application.ScreenUpdating = False If TextBox1.Text = "" Then MsgBox "日付を、" & vbCrLf ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201608/20160830114249.txt - [detail] - similar

[[20151204195540]] 1266: 『InputBoxのキャンセルについての続き』（sada）
[[20151201082551]]にて半平太さんに面倒を見て頂き ... Application.InputBox(msg, "印刷部数", 1, Type:=1) If VarType(vntCop) = vbBoolean Then Exit Sub End If I ... 確認後、OKなら印刷をクリックして下さい" Exit Do End If Loop If .PageSetup.PaperSize = xlPaperA3 Then msg ... tion.InputBox(msg, "ページサイズ設定", 2, Type:=1) If VarType(vntNum) = vbBoolean Then vntNum = 0: Exit ... Do ' ※ If vntNum = 1 Or vntNum = 2 Then vntNum = vntNum + 7 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201512/20151204195540.txt - [detail] - similar

[[20090610220538]] 1266: 『複数の単語を検索したい』（なお）
はじめまして。初歩的な質問で申し訳ないのですが、エクセルで複数 ... , ii As Long, iii As Long Dim n As Long, m As Long If TypeName(Selection) <> "Range" Then MsgBox "検索範 ... てから実行してください", vbExclamation Exit Sub End If With Selection tbl = .Value n = .Cells(1, 1).Row - ... -から始まるキーワードはNot検索になります", Type:=2) If Len(txt) = 0 Then Exit Sub x = Split(txt) With Cre ... ateObject("Scripting.Dictionary") If Left(x(0), 1) = "-" Then For ii = 1 To UBound(tbl, ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090610220538.txt - [detail] - similar

[[20171107153924]] 1266: 『入力した値が同シート内で重複しない場合に警告音』（とり）
質問失礼致します。もとからD列には多数 ... ong B_flg = True ad = Target.Address(False, False) If (Mid(ad, 1, 1) <> "B") Or (Selection.Count > 1) Or ... (IsEmpty(Range(ad).Value)) Then Exit Sub End If For cnt = 1 To Cells(Rows.Count, 4).End(xlUp).Row ... 4).Value = Range(ad).Value Then B_flg = False End If Next cnt If B_flg Then Beep End If End Sub （隠居じ ... rivate Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then If Cells(Target.Row, 3).Val ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201711/20171107153924.txt - [detail] - similar

[[20060911231703]] 1266: 『条件にあったセルの右隣のセルに色をつけるマクロ』（WATA）
[『条件にあったセルの右となりのセルに ... Integer Dim Rng As Range For Each Rng In Selection If Rng.Value Like "?0200609*" Then Select Case Left(R ... fset(0, 1).Interior .ColorIndex = Col End With End If Next Rng End Sub ※7つと言う割には、「40200609」が抜 ... Range(MyC & 1, Range(MyC & Rows.Count).End(xlUp)) If Rng.Value Like "?0200609*" Then Select Case Left(R ... fset(0, 1).Interior .ColorIndex = Col End With End If Next Rng Next MyC End Sub （キリキ）（〃⌒o⌒)b ---- ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060911231703.txt - [detail] - similar

訪問者：カウンタ