Results of 281 - 290 of about 37697 for IF (0.020 sec.)
- [[20150626161424]] 1232
- 『複数条件』(setuna)
B列に”A”と入っていれば、同じ行のD列〜G列すべてが”100”と入っているかどうか ...
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row If Range("B" & i).Value = "A" Then msgbox "Aがはいって ...
いる" End If Next i ご教示お願いします。 < 使用 Excel:Excel201 ...
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row If Range("B" & i).Value = "A" Then If Range("D" & i). ...
Value = 100 Then If Range("E" & i).Value = 100 Then If Range("F" & i). ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201506/20150626161424.txt
- [detail]
- similar
- [[20051004152836]] 1232
- 『条件指定の方法を教えて下さい。』(りお)
いつもお世話になっております。 作りたい表があるのです ...
にしてます。 4月の実績の欄(G3)に下記を入れます。 =IF(MONTH($B3)=4,15,IF(MONTH($C3)=4,25,IF(MONTH($D3)=4 ...
,50,IF(MONTH($E3)=4,75,IF(MONTH($F3)=4,100,IF(H3<>"",0,"" ...
)))))) 5月の実績の欄(H3)に下記を入れます。 =IF(MONTH($B3)=5,15,IF(MONTH($C3)=5,25,IF(MONTH($D3)=5 ...
,50,IF(MONTH($E3)=5,75,IF(MONTH($F3)=5,100,IF(I3<>"",0,"" ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200510/20051004152836.txt
- [detail]
- similar
- [[20220106171527]] 1232
- 『素数判定プログラミング』(初心者です。)
1.与えられた整数値 x が素数か否かを判定する Function ...
putBox("整数値(2〜32767)", title) For k = 2 To x If x Mod k = 0 Then Exit For Next k If k < x Then Msg ...
title Else MsgBox x & "は素数です。", , title End If End Sub '素因数分解をするSubプロシージャ Sub facto ...
"整数値(2〜32767)", "素因数分解") y = x k = 2 Do If y Mod k = 0 Then s = s & ", " & k y = y ¥ k Else k ...
= k + 1 End If Loop Until y = 1 MsgBox x & " ⇒ " & s, , "素因数分 ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202201/20220106171527.txt
- [detail]
- similar
- [[20110816204342]] 1232
- 『並び替えが難しい』(sala)
ふつかほど考えていますが、とっても難しくて思考回路が切断中・・・ つ ...
れぞれがA1:E5、A11:E15、A21:E25にあるとすると、 G1 =IF(A1="","",OFFSET($N$1,A1-1,0)) として、G1を G1:K25 ...
ぞれがA1:E5、A11:E15、A21:E25にあるとすると、 > >G1 =IF(A1="","",OFFSET($N$1,A1-1,0)) > >として、G1を G1:K ...
) As Long For i = 0 To 24 numArray(i) = i + 1 Next If Range("A1").Value <> "" Then Range("A19:E24").Inse ...
rt shift:=xlDown Range("A7:E24").Value = Range("A1:E18").V ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201108/20110816204342.txt
- [detail]
- similar
- [[20170315163305]] 1232
- 『データの照合について』(まー)
お世話になります。 60列の30000行ほどのエクセルデータがあり、16列 ...
im myc as range Application.ScreenUpdating = False If MsgBox("最新データと照合します。宜しいですか?", vb ...
OKCancel) = vbCancel Then Exit Sub If MsgBox("ダウンロードした最新のファイルを選択してく ...
Then Exit Sub myfile = Application.GetOpenFilename If myfile = "False" Then Exit Sub flag = False For Ea ...
ch wb In Workbooks If wb.Name = Dir(myfile) Then flag = True Next If fla ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201703/20170315163305.txt
- [detail]
- similar
- [[20040916174313]] 1232
- 『ループの終了条件が分かりません』(まいうー)
勤務締が「当月1日から当月末」から「当月21日から次 ...
く空白セル(1つ目)で マクロ実行が中断されています。 If ActiveCell = Worksheets("入力用紙").Range("休日") ...
と良いんですよね。 Dim i As Integer For i = 1 to 31 IF IsDate(Cells(i,2)) = True Then '処理記述 Else End ...
雅子似) Sub 日付文字色変更() Dim i As Long i = 1 Do If ActiveCell.Value <> "" Then If ActiveCell.Value = ...
alue) = 1 Then Cells(i, 3).Font.ColorIndex = 3 End If End If i = i + 1 Cells(i, 3).Select Loop Until Day ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200409/20040916174313.txt
- [detail]
- similar
- [[20100407220157]] 1232
- 『セルの色だけを移動するマクロ』(kei)
はじめましてよろしくおねがいいたします。 アクティブセルの ...
CLU = ActiveCell.Offset(-1, 0).Interior.ColorIndex If CLU = -4142 Then ActiveCell.Interior.ColorIndex = ...
rIndex = CL ActiveCell.Offset(-1, 0).Activate Else If CLU <> -4142 Then MsgBox "移動先が塗りつぶされてい ...
るため、移動できませんでした。" End If End If End Sub 上記のマクロに3つの機能を追加したい ...
Target As Range, ByVal i As Long, ByVal j As Long) If Target.Offset(i, j).Interior.ColorIndex = -4142 Th ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201004/20100407220157.txt
- [detail]
- similar
- [[20180228224127]] 1232
- 『コメント挿入』(めいこ)
VBA初心者で調べながらやっているので分からなく教えていただきたく投稿さ ...
Range2 = "$D$3:$D$17" Dim strCommentText As String If ((Target.Address <> cnsRange1) And (Target.Address ...
<> cnsRange2)) Then Exit Sub If Target.Value <> "" Then strCommentText = Format(Da ...
& " " & Target & " ⇒ " & Target.Value & " UP" End If Application.ScreenUpdating = False Call GP_SetCell ...
tRedLength As Integer = -1) With objRange.Cells(1) If strCommentText = "" Then .ClearComments Exit Sub E ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201802/20180228224127.txt
- [detail]
- similar
- [[20201123200729]] 1232
- 『エクセルVBA シート2こ別々の参照・計算・行挿入 について』(トマト)
VBAとても初心者のため いろい ...
次入力数字」だった時 Selection.Rows.Select.Insert shift:=xlFormatFromLeftOrAbove And xlPasteValuesAndNumb ...
erFormats And ("/") And K If ActiveCell.Value = K < M And K = M Then Exit Do Se ...
lection.Rows.Select.Insert shift:=xlFormatFromLeftOrAbove And ("/") And K Loop End ...
次入力数字」だった時 Selection.Rows.Select.Insert shift:=xlFormatFromLeftOrAbove And xlPasteValuesAndNumb ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202011/20201123200729.txt
- [detail]
- similar
- [[20110225102804]] 1232
- 『ファイル名の変わるファイル指定』 (初心者なーくん)
いつもお世話になります。教えて下さい。 例え
...
CheckedFile As String Dim Ans As Long With Target If .Column = 6 Or .Column = 8 Then Select Case .Value ...
nd Select CheckedFile = Dir(myFolder & myFileName) If CheckedFile = "" Then MsgBox "該当ファイルがありま ...
se vbCancel 'キャンセルの場合の処理 End Select End If End If End With (momo) ---- (momo)さん、いつも ...
le As String, FoundPath As String) Dim f As Object If FoundPath = "" Then With CreateObject("Scripting.F ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201102/20110225102804.txt
- [detail]
- similar
Powered by
Hyper Estraier 1.4.13, with 97060 documents and 608319 words.
訪問者: