Results of 211 - 220 of about 37679 for IF (0.018 sec.)
- [[20081119075059]] 1256
- 『ファイルを検索してマクロ実行』(ミンミンゼミ)
同一フォルダ内に,A,B,Cの3つのファイルがあります ...
For Each ff In .GetFolder(ThisWorkbook.Path).Files If InStr(1, ff.Name, ".xls") > 0 Then Select Case ff. ...
.xls" Case Else flg = True Exit For End Select End If Next End With If flg Then Rem 続きのマクロを記載。 ...
End If End Sub ---- どうもありがとうございます。 それで,い ...
For Each ff In .GetFolder(ThisWorkbook.Path).Files If InStr(1, ff.Name, ".xls") > 0 Then Select Case ff. ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081119075059.txt
- [detail]
- similar
- [[20160512102144]] 1252
- 『関数 IF文の複数条件個数』(とーあ)
以下の様なIF文で、複数条件の限度回数ってあるのでしょうか? ...
=IF(B4="あ",1,IF(B4="い",2,IF(B4="う",3,IF(B4="え",4,I ...
F(B4="お",5,IF(B4="か",6,IF(B4="き",7,IF(B4="く",8,"")))))))) ↑こ ...
れに、 IF(B4="け",9)を付け加えるとエラーになります。 =IF(B4= ...
"あ",1,IF(B4="い",2,IF(B4="う",3,IF(B4="え",4,IF(B4="お",5,I ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201605/20160512102144.txt
- [detail]
- similar
- [[20120416142118]] 1252
- 『ユーザーフォームの転記がうまくいきません3』(peridot)
[[20120413102254]] の続きです。 >つまり ...
.Count).End(xlUp)) Select Case c.Value Case "記号" If f <> 0 Then e = c.Offset(-3).Row dicSample(myCls & ...
0) = Array(f, e) End If myCls = c.Offset(-1).Value f = c.Offset(1).Row Cas ...
).Row dicSample(myCls & 0) = Array(f, e) Case Else If Len(c.Value) > 0 Then dicQty(myCls & vbTab & c.Val ...
b & c.Offset(, 1).Value) = c.Offset(, 2).Value End If If Len(c.Offset(, 4).Value) > 0 Then dicQty(myCls ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201204/20120416142118.txt
- [detail]
- similar
- [[20231110142656]] 1252
- 『指定した年月の営業実績件数を降順に出力できるようなランキング機能。 』(初心者その1)
https://f ...
ータをクリア ws1.Range("B11:AD11").Clear ' 年の判定 If year & "年" <> "2019年" And year & "年" <> "2020年 ...
Msg = "年は2019年か2020年を入力してください。" End If ' 月の判定 If month < 1 Or month > 12 Then errorMs ...
g = "月は1から12の範囲で入力してください。" End If ' データを出力 i = 9 Row = 5 targetRow = 10 target ...
つかるまでループ 別ものとして考える Do Until i > 29 If ws2.Cells(3, i).Value = year & "年" And ws2.Cells( ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231110142656.txt
- [detail]
- similar
- [[20231127195743]] 1252
- 『当番の割り当て』(今月ゴミ当番)
『当番の割り当て』 https://www.excel.studio-kazu.jp/kw/202310 ...
As Range) 内の 以下の4行を、その下の6行で上書き > If Len(vWK(nativeRw, CLNum)) > 1 Then > msgAlert = m ...
veRw, CLNum) & "on " & Format(dy, "m月d日") > End If ↓ If Len(vWK(nativeRw, CLNum)) > 1 And _ Not vWK(n ...
ativeRw, CLNum) & "on " & Format(dy, "m月d日") End If >それから、 >以前の質問に「ハムさん」が質問されて ...
ghtClick(ByVal target As Range, Cancel As Boolean) If target.Address(0, 0) = "C2" Then Cancel = True Cal ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231127195743.txt
- [detail]
- similar
- [[20130613140402]] 1252
- 『複数ブックからシートを抽出する方法』(ドラえもん)
バージョン2010 いつもお世話になっております。 ...
。", "処理年度の指定", Format(Date, "ge"), Type:=2) If shn = "False" Then Exit Sub Set sh = Nothing On Er ...
Set sh = ThisWorkbook.Sheets(shn) On Error GoTo 0 If Not sh Is Nothing Then Exit Do MsgBox "シート " & ...
me = Dir(myPath & "*.xls") Do While Len(fName) > 0 If fName <> ThisWorkbook.Name Then '念のため Set wb = ...
.Open(myPath & fName) For Each sh In wb.Worksheets If dic.exists(sh.Name) Then If Not nb Is Nothing Then ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201306/20130613140402.txt
- [detail]
- similar
- [[20110228200052]] 1252
- 『チェックボックスのコードをコンパクトにしたいです』(スサノオ)
Excel2003 お世話になります。 チ ...
法がありましたら アドバイスをよろしくお願いします。 If CheckBox1.Value = True Then Worksheets("aa").Range ...
("G14").Value = "1" End If If CheckBox2.Value = True Then Worksheets("aa").Ra ...
nge("H14").Value = "1" End If If CheckBox3.Value = True Then Worksheets("aa").Ra ...
nge("I14").Value = "1" End If If CheckBox4.Value = True Then Worksheets("aa").Ra ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201102/20110228200052.txt
- [detail]
- similar
- [[20070825112122]] 1252
- 『アプリケーション定義またはオブジェクト定義のエラー』(りす)
Excel2003 WindowsXPです。 こんにち ...
ring ' "sushiki1"は文字列ですと宣言。 sushiki1 = "=If(RC[-13]=""MB"" & ""*"",""MB"",IF(RC[-13]=""PE"" & ...
こんにちは! )←が一つ足りない様です。 sushiki1 = "=If(RC[-13]=""MB"" & ""*"",""MB"",IF(RC[-13]=""PE"" & ...
""*"",""PE"",""OTHER"")" ↓ sushiki1 = "=If(RC[-13]=""MB"" & ""*"",""MB"",IF(RC[-13]=""PE"" & ...
す。。どのようにすれば良いでしょうか。 sushiki1 = "=IF(COUNTIF(RC[-13],""MB*""),""MB"",IF(COUNTIF(RC[-13] ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200708/20070825112122.txt
- [detail]
- similar
- [[20100318152124]] 1252
- 『記述の方法』(yumie)
こんにちは マクロを始めたばかりで、以下の記述でしか出来ません。 他によい ...
記述がありましたら教えて下さい。 If Not Intersect(ActiveCell, Range("B6")) Is Nothing ...
Then Me.Label4.Caption = Range("AD2").Value If Not Intersect(ActiveCell, Range("B10")) Is Nothing ...
Then Me.Label4.Caption = Range("AF6").Value If Not Intersect(ActiveCell, Range("B14")) Is Nothing ...
Then Me.Label4.Caption = Range("AD10").Value If Not Intersect(ActiveCell, Range("B18")) Is Nothing ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100318152124.txt
- [detail]
- similar
- [[20230522142756]] 1252
- 『文字列内のカッコ内の文字列を抽出する』(教えてくん)
ExcelのVBAで文字列中のカッコ内の文字列を抽 ...
thesis = 0 count = 0 For i = 1 To Len(inputString) If Mid(inputString, i, 1) = "(" Or Mid(inputString, i ...
, 1) = ")" Then If Mid(inputString, i, 1) = "(" Then openParenthesis ...
= i Else closeParenthesis = i End If If openParenthesis <> 0 And closeParenthesis <> 0 ...
Then count = count + 1 If count = index Then Extractkatuko = Mid(inputString ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202305/20230522142756.txt
- [detail]
- similar
Powered by
Hyper Estraier 1.4.13, with 97034 documents and 608188 words.
訪問者: