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

Results of 101 - 110 of about 37655 for IF (0.013 sec.)

[[20150308172244]] 1313: 『追加質問』（ちぃさん）
お世話になります。 [[20150306215405]] コチラでの追加質問になります。ご ... 始行 Dim c As Range 'E列の変更でなかったら処理しない If Intersect(Target, Columns("E")) Is Nothing Then Ex ... 変更になったセル領域の最初が6行目未満なら処理しない If Target(1).Row < 6 Then Exit Sub Application.Enable ... 美装", LookAt:=xlWhole, SearchDirection:=xlPrevious) If c Is Nothing Then '美装がない場合 'F2,H2が空白では ... なかったら空白にするかどうかを聞く If Len(Range("F2").Value) > 0 Or Len(Range("H2").Valu ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150308172244.txt - [detail] - similar

[[20130320082734]] 1313: 『複数のcheckboxとoptionbuttonの上手な記述について』（くま）
はじめまして。現在下記のようなロジッ ... →処理が増減するとcheckboxとoptionbuttonの組み合わせ(if〜elseif)を増やすと個々の処理は対応できるのですが、 ... 定チェックボックスの選択結果を調べる '入庫印刷対応 If UserForm1.CheckBox1.Value = True And UserForm1.Opt ... alse OptionButton1.Value = False '出庫印刷対応 ElseIf UserForm1.CheckBox1.Value = True And UserForm1.Opt ... ptionButton2.Value = False 'A世代入庫印刷対応 ElseIf UserForm1.CheckBox2.Value = True And UserForm1.Opt ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130320082734.txt - [detail] - similar

[[20191104143055]] 1308: 『コードと仕組みを解説してほしい』（める）
こんにちは。お世話になっております。先日ヒストグラム ... ents End Sub '======用紙選択 Sub 用紙() 横個数 = 1 If Shtデータ.OptionButtons("OptA4").Value = xlOn Then ... Next Shtグラフ.PageSetup.PaperSize = xlPaperA3 End If On Error GoTo 0 End Sub 【Md2 工程能力メイン】 Opt ... Or _ (Shtデータ.Cells(Cd規格下限, i).Value > " ") If Shtデータ.Cells(C実行, i).Value = "済" Then 済の有 ... 無 = True End If i = i + 1 Wend 特性数 = i - 3 '-----特性数0の場合の ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191104143055.txt - [detail] - similar

[[20090914095259]] 1308: 『別シ-トヘ自動転記』（みこ）
[[20090803103642]] 『別シ-トヘ自動転記』（みこ）お世話になっていま ... sn, mr As Date Dim i As Long On Error Resume Next If ActiveSheet.Name <> "本日予定表" Then MsgBox "本日 ... 。" Else mr = Range("A" & Rows.Count).End(xlUp).Row If mr < 6 Then MsgBox "データが有りません。" Else For ... i = 6 To mr sn = Range("I" & i).Value If sn <> "" Then If Left(sn, 2) = "東芝" Then sn = "東 ... 芝" End If With Sheets(sn).Range("A" & Rows.Count).End(xlUp). ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090914095259.txt - [detail] - similar

[[20080905105648]] 1308: 『カレンダーについて』（てんてん）
2008年 2月平成20年 A B C D E F G H I 3 日月火水木金土 ... 0 17 18 19 20 21 22 23 11 12 24 25 26 27 28 29 C4 =IF(WEEKDAY(DATE($A$1,$C$2,1))=1,1,"") D4 =IF(ISNUMBER ... (C7),C7+1,IF(WEEKDAY(DATE($A$1,$C$2,1))=2,1,"")) E4 =IF(ISNUMBE ... R(D7),D7+1,IF(WEEKDAY(DATE($A$1,$C$2,1))=3,1,"")) F4 =IF(ISNUMBE ... R(E7),E7+1,IF(WEEKDAY(DATE($A$1,$C$2,1))=4,1,"")) G4 =IF(ISNUMBE ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200809/20080905105648.txt - [detail] - similar

[[20050428215554]] 1304: 『マクロで印刷』（ぷ〜）
応用ができないんです・・・ Private Sub 印刷_Click() Dim ws As Worksheet ... f = MsgBox("印刷する(〃⌒o⌒)?", vbOKCancel, "印刷") If conf = vbOK Then conf = MsgBox("確認する(*^▽^*)o♪ ... ", vbOKCancel, "確認") If conf = vbCancel Then conf = MsgBox("印刷します!", ... vbOKCancel, "確認") If conf = vbOK Then myNo = Mid(MyName, i) If InStr(ws ... .Name, myNo) > 0 Then ws.PrintOut ElseIf conf = vbOK Then myNo = Mid(MyName, i) For Each ws ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200504/20050428215554.txt - [detail] - similar

[[20210614183239]] 1304: 『平等な当番表』（ゆゆ）
初めまして<(_ _*)> http://www.excel.studio-kazu.jp/kw/20190727174210.ht ... I2").Resize(numOfStaffs, 7).FormulaR1C1Local = _ "=IF(RC1="""","""",IF(LEFT(R1C,2)=""予備"","""",COUNTIF ... が休みでないか、または日付データが正しいか、事前確認 If Application.CountIf(ws当番.Cells(2, DateCol + 1).R ... '仮置き For idx = 1 To numOfStaffs With 社員(idx) If .ScheD(1, DateCol).Value = "" Or .ScheD(1, DateCol ... idx Fewest = Application.Min(sortKey, Fewest) End If End With Next idx idx = Fewest Mod 100 '割当てるべ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202106/20210614183239.txt - [detail] - similar

[[20181116181428]] 1304: 『（マクロ）進捗状況をステータスバー表示マクロの組み込み方法』（マイン）お世話になっております。 ... ります。 '★?A★リストで選択した名前と同じシートを選択 If ListBox1.List(ListBox1.ListIndex, 0) = "この曜日" ... 曜日」が表示されていたら該当者なしなので処理せず、EndIf→Next c に飛ぶ '★?C★印刷 Application.StatusBar = "○ ... ------------------ 'メッセージ表示し実行するか選択 If MsgBox("担当者の「 " & Label_w1.Caption & "〜" & L ... bOKOnly, "印刷処理" '★キャンセル時はココに飛ぶ End If '------------------------------------------------- ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201811/20181116181428.txt - [detail] - similar

IF 関数もし...ならエクセル Excel [エクセルの学校] 1304: IF 関数エクセルの IF 関数の使い方を説明します IF 関数は指定された条件を調べてそれに対応した結 ... 果を計算又は表示します IF 関数 [語源、英語]:IF [読み]:イフ [書式]:=IF(＜論理 ... さい、そうでないときは＜偽の場合＞をしなさい [説明2]:IF 関数を利用すると、値あるいは数式が条件を満たしてい ... トし、その結果に基づいて処理を分岐することができます IF 関数の比較記号 IF 関数の＜論理式＞で使える比 ... ではなく、半角直接入力モード[A]で入力します > は [shift]キーを押しながらキーを押します、このキーは[大な ...; http://www.excel.studio-kazu.jp/func/if.html - [detail] - similar

[[20150409161816]] 1304: 『最新のデータだけ追記する』（ニワ）
フォルダに,Aというファイルがあります。 Aファイルの3列目,5行 ... on.GetOpenFilename("Excel Files (*.xls*), *.xls*") If vFile <> False Then Application.ScreenUpdating = F ... ls(.Rows.Count, "C").End(xlUp).Row For j = 5 To iR If .Cells(i, "C").Value = Cells(j, "C").Value Then Ex ... it For End If Next j If j = iR + 1 Then iR = iR + 1 .Rows(i).Cop ... y Rows(iR) End If Next i End With .Close End With Application.Screen ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150409161816.txt - [detail] - similar

訪問者：カウンタ