advanced help
per page, with , order by , clip by
Results of 71 - 80 of about 37571 for IF (0.012 sec.)
[[20220326220617]] 1337
『vba リストボックス内のリストをエンターキーで移動させる』(jjj)
はじめまして。 リストボックス内 ... wn(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With Me.ListBox1 If KeyCode = vbKeyRe ... Or KeyCode = vbKeyTab Then 'EnterキーまたはTabキー If .ListIndex = -1 Then .ListIndex = 0 ElseIf .ListCo ... ListIndex = 0 Else .ListIndex = .ListIndex + 1 End If KeyCode = 0 ElseIf KeyCode = vbKeySpace Then 'Spac ... eキー If .ListIndex <> -1 Then 'セルに転記 Worksheets("Shee ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202203/20220326220617.txt - [detail] - similar
[[20230901145126]] 1337
『マクロでセルの値変換』(メガネ)
下記のような表で同一列にAが3個ある場合、上から2番目のAをCに変 ... ns.Count For c = 1 To ec f = False For r = 1 To er If v(r, c) = "A" Then Select Case f Case True: v(r, c ... "C": Exit For Case False: f = True End Select End If Next r Next c rng.Value = v End Sub シート名はダブ ... or Each c In [A2:C12].Columns For Each r In c.Rows If r.Value = "A" Then i = i + 1 If i = 3 Then Exit Fo ... r If a Is Nothing Then If i = 2 Then Set a = r Next If ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202309/20230901145126.txt - [detail] - similar
[[20130828173208]] 1337
『ユーザー定義型関数の速度を上げる方法について』(BB)
Windows Vista、Excel2003です。 エクセル上 ... Dim c As Range HitData = a hit = 0 For Each c In b If Len(c.Text) = 0 Then If c.Interior.ColorIndex = 36 ... Then For i = -1 To -1000 Step -1 If Len(c.Offset(0, i)) > 0 Then Exit For End If Next ... If HitData = c.Offset(0, i).Text Then If c.Row > 37 And c.Row < 106 Then hit = hit + 2 Else ... hit = hit + 1 End If End If End If Else If HitData = c.Text Then If c.R ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201308/20130828173208.txt - [detail] - similar
[[20170803094726]] 1337
『エクセルでのGrep検索』(お願いします)
VBA初心者です。 コードを書き換えて下記の機能を持つように ... k.Worksheets(Worksheets.Count) '出力シート名前変更 If clsDirInfo(iDir).outputSheetName <> "" Then search ... oOutSh.name = clsDirInfo(iDir).outputSheetName End If '名前の定義 If clsDirInfo(iDir).name <> "" And cls ... o(iDir).nameCols).name = clsDirInfo(iDir).name End If '出力位置 nowResRow = searchOption.oOutSh.Range(st ... リパス名を取得する For Each dir In topDir.SubFolders If dir.Attributes <> Alias Then Call doListGrep(dir.p ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201708/20170803094726.txt - [detail] - similar
[[20090619072025]] 1337
『改題2 Sheet1の氏名、生年、没年 等身関係等をSheet2の年軸表に記載』(はんにゃ)
今シートBに デー ... バーに 1940/12/22 の様に表示された状態。) E2セルに =IF(A2="","",YEAR(IF(D2="母",SUMIF($D$1:$D$10,"父",$B$ ... 1:$B$10),B2))) F2セルに =IF(A2="","",E2&D2) J2セルに =IF(K2="","","△") K2セルに ... =IF(ISNA(MATCH($Q2&"父",$F$1:$F$10,0)),"",INDEX($A$1:$ ... A$10,MATCH($Q2&"父",$F$1:$F$10,0))) L2セルに =IF(AND(K2<>"",M2<>""),"====",IF(COUNTIF($L$1:L1,"==== ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090619072025.txt - [detail] - similar
[[20070914215234]] 1331
『任意の範囲の数字の抽出』(糸瀬)
A B C D E F G 1 22 47 16 41 10 35 4 2 5 23 48 17 42 11 29 3 3 ... ).Value & " です" test3 Range("L" & i).Value test4 If Range("P1").Value = "○" Or Range("P2").Value = "○" ... ").Value = "○" Then MsgBox "ビンゴ!!" Exit Sub End If Next i End Sub Sub test3(c As Integer) Dim e For E ... ach e In Range("A1:G7") If c = e.Value Then e.Interior.ColorIndex = 6 e.Font. ... ("N" & e.Row).Value = Range("N" & e.Row).Value + 1 If e.Column = e.Row Then Range("O1").Value = Range("O ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200709/20070914215234.txt - [detail] - similar
[[20090303194225]] 1331
『関数とマクロ』(まんまる)
仕事でデータの差異を確認しています。 例えばですが1月の売上ファイルに ... 日の売上にaとbという組み合わせがあるか調べるのに 今はIF関数を使ってシートごとにいれています。 ファイルもシー ... せんし どの様になさりたいのかも わかりません。 >今はIF関数を使ってシートごとにいれています。 それで良いなら ... ているのはまずフィルタでaaという種類を抽出してその後 IF(1月の部品&個数=2月の部品&個数、”OK")といった感じの ... を参考にしていいか分からない状態なのです。 今は入れたIF関数の結果がfalseを見てその組み合わせがあるかないかい ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200903/20090303194225.txt - [detail] - similar
[[20070620215119]] 1331
『ネストの限界について』(みにら)
先ほど(20070620160227)でも聞かせて頂いたんですが ネストの限界 ... が来た時にどのように変化させると良いのでしょうか? =IF(IF(G8="","",OR(G8="",J9=$H$313,L9=$H$313,N9=$H$313 ... N9=$H$314,P9=$H$314,R9=$H$314,T9=$H$314,V9=$H$314),IF(U8="",IF(S8="",IF(Q8="",IF(O8="",IF(M8="",IF(K8="" ... ,IF(I8="","",H10),K8-G8+1),M8-G8+1),O8-G8+1),Q8-G8+1), ... ネストの限界かもしれませんが・・・出だしにいきなりIFが二つ重なっていますがこれでも大丈夫です ですかね?わ ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200706/20070620215119.txt - [detail] - similar
[[20061222213534]] 1331
『ユーザーフォームについて』(れいまま)
こんばんは。 またまた教えてください<(__*)>(また れいま ... ge("A:A").Find(TextBox6.Text, , xlValues, xlWhole) If Not FR Is Nothing Then TextBox7.Text = FR.EntireRo ... w.Cells(1, "B").Text Set FR = Nothing End If Range("G2").Value = TextBox7.Text End With End Sub ... ge("A:A").Find(TextBox8.Text, , xlValues, xlWhole) If Not FR Is Nothing Then TextBox9.Text = FR.EntireRo ... w.Cells(1, "D").Text Set FR = Nothing End If Range("H2").Value = TextBox8.Text Range("I2").Valu ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200612/20061222213534.txt - [detail] - similar
[[20110414095126]] 1327
『数式が多すぎてエラーになるのですが・・・』(とも)
はじめまして、宜しくお願いします。 =IF(L12= ... D12,E12,IF(L12=D13,E13,IF(L12=D14,E14, IF(L12=D15,E15,IF(L12= ... D16,E16,IF(L12=D17,E17, IF(L12=D18,E18,IF(L12=D19,E19,IF(L12= ... D20,E20, IF(L12=D21,E21,IF(L12=D22,E22,IF(L12=D23,E23, IF(L12= ... D24,E24,IF(L12=D25,E25,IF(L12=D26,E26, IF(L12=D27,E27,IF(L12= ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201104/20110414095126.txt - [detail] - similar
Powered by Hyper Estraier 1.4.13, with 96863 documents and 608010 words.

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