advanced help
per page, with , order by , clip by
Results of 171 - 180 of about 37667 for IF (0.017 sec.)
[[20190929192243]] 1267
『シフト作成、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 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190929192243.txt - [detail] - similar
[[20191011155444]] 1267
『VBAを用いた複雑なデータ比較(再投稿) 』(ぬまる猫) 以前、ご質問させて頂き多くの方々からご回答 ... y(0) ReDim w(0) Application.ScreenUpdating = False If Not Evaluate("=ISREF(作業用!A1)") Then Sheets.Add. ... Range("A1") .Range("A:A,C:F,H:M,O:R,T:X").Delete Shift:=xlToLeft .Columns("C:C").Insert Shift:=xlToRight ... xlCellTypeConstants, 3).Areas For Each r In MyTblA If u Is Nothing Then Set u = r(1, 1) Else Set u = Uni ... on(u, r(1, 1)) End If Next For Each rr In MyTblB If u Is Nothing Then Se ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191011155444.txt - [detail] - similar
[[20100209195237]] 1267
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 じゃないんです ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201002/20100209195237.txt - [detail] - similar
[[20081101145236]] 1267
『 現在時刻の表示 』(久下久光)
一つのセルに何時何分と(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 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081101145236.txt - [detail] - similar
[[20160830114249]] 1267
『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 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201608/20160830114249.txt - [detail] - similar
[[20240227164655]] 1267
『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列に入力したときにはメッセージボ ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202402/20240227164655.txt - [detail] - similar
[[20090610220538]] 1267
『複数の単語を検索したい』(なお)
はじめまして。初歩的な質問で申し訳ないのですが、エクセルで複数 ... , 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, ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090610220538.txt - [detail] - similar
[[20210123093632]] 1267
『相対参照、絶対参照のコピーでズレないようにコピーする方法』(セル)
例のような関数式が入ったセル ... コピーする方法があればご教授願います。 例 3行目 C列 =IF(回答!$v6="","",IF(EXACT(C$5,回答!$v6),"○","×")) D列 ... =IF(回答!$v7="","",IF(EXACT(C$5,回答!$v7),"○","×")) E列 ... =IF(回答!$v8="","",IF(EXACT(C$5,回答!$v8),"○","×")) コ ... ピーした際の 4行目 C列 =IF(回答!$w6="","",IF(EXACT(C$5,回答!$w6),"○","×")) D列 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202101/20210123093632.txt - [detail] - similar
[[20060911231703]] 1267
『条件にあったセルの右隣のセルに色をつけるマクロ』(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 ---- ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060911231703.txt - [detail] - similar
[[20221011192444]] 1267
『エクセルのマクロを使用したコピペについて』(マクロって楽しいな〜)
エクセルのマクロを使用したコ ... ー無視をしておく) On Error GoTo 0 'エラー無視おわり If Destination Is Nothing Then Exit Sub '貼り付け先範 ... のでしょうか? 下記の形で行うと、B列からAA列まで=COUNTIF(H:H,H2)が値貼り付けされた状態で入ります。 Sub 極端 ... ("B2").End(xlDown).Offset(, -1)) .Formula = "=COUNTIF(H:H,H2)" .Copy .PasteSpecial Paste:=xlPasteValues ... nks) '空白セルを変数に入れる 貼付先.Value = "=COUNTIF(H:H,H2)" '空白セルに数式を入れる(数式は先頭セル基 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221011192444.txt - [detail] - similar
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.

訪問者:カウンタValid HTML 4.01 Transitional