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

Results of 131 - 140 of about 37667 for IF (0.015 sec.)

[[20231116211156]] 1289: 『画像の任意の範囲のRGB値をエクセルでデータ化したい』（てつ）
恐縮です、どなたかご教授頂ければ幸 ... Private Function GetBmpfromClipboard() As LongPtr If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then Exi ... t Function If OpenClipboard(0&) <> 0 Then GetBmpfromClipboard = ... etClipboardData(CF_BITMAP) Call CloseClipboard End If End Function Private Function GetARGBofBmp(ByVal h ... 得() Dim hBmp As LongPtr hBmp = GetBmpfromClipboard If hBmp = 0 Then Exit Sub Dim px() As typeARGB, v() A ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231116211156.txt - [detail] - similar

[[20061002220044]] 1289: 『複数の数字の合計』（MATT）
はじめまして。早速ですが以下の内容よろしくお願いします。近所のガソ ... s.Count s_data = Val(StrConv(tbl(1, n), vbNarrow)) If data + s_data >= 150 Then If data + s_data - 150 < ... ).Address(0, 0) y(1) = tbl(1, n).Address(0, 0) End If End If Next n Next i matt = x + 150 & "," & y(0) & ... ct Case mai Case 4 For i = 1 To .Columns.Count - 3 If tbl(1, i) <> "" Then data1 = Val(StrConv(tbl(1, i) ... , vbNarrow)) For n = i + 1 To .Columns.Count - 2 If tbl(1, n) <> "" Then data2 = data1 + Val(StrConv(t ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200610/20061002220044.txt - [detail] - similar

[[20111205105217]] 1284: 『入荷日または使用期限の古いものを抽出』（雪だるま）
Excel2007です。ある食品購入者向けダイレクト ... = A2 To A列の最後まで For j = A2 To A列の最後まで If 「投入表」B14 = Range("C" & j) Then s1 = ("J" & j) ... End If Next j If 「投入表」B14 = Range("C" & i) Then s2 = ... ("J" & i) If s1 <= s2 kigen = s1 Else kigen = s2 End If End If ... = .Offset(Rows.Count - .Row).End(xlUp).Row - .Row If lngRows <= 0 Then strProm = .Parent.Name & "にデー ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201112/20111205105217.txt - [detail] - similar

[[20121002103740]] 1284: 『運送業・運転手の勤務時間』（Yoshi）
運送業を営んでいます乗務員さんの勤務時間を算出したいのです ... か確認したいのですが、関数?式? こんなので ↓ M2セル =IF(ROUND((SUM(G2:J2)-E2)*1440,0),"-NG-","OK") ※全部手 ... カードの時間を入力する。:書式設定は〔h〕:mm セルE3 =if(d3="","",if(f3-i3>$d$1,f3-i3-$d$1))で時間外=拘束時 ... 間-休憩時間-所定労働時間セルf3 =if(d3>c3,d3-c3,1f(d3="","",if(d3<c3,d3+1-C3)))拘束時間 ... を求めるセルg3 =if(d3="","",f3-h3-i3) 改善基準の運転時間がクリア出来て ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201210/20121002103740.txt - [detail] - similar

[[20060502142632]] 1284: 『指定色文字以外の合計』（HH）
・・・・・・N・・・・・・・・・・38・・・・N1〜N37までに含まれる ... *0 OK 4）O1 =iro 以下コピー（O37まで） 5）N537 =SUMIF(O1:O37,0,N1:N37) 6）N538 =COUNTIF(O1:O37,3) ※色を変 ... ad In adrs fci = ad.Font.ColorIndex cv = ad.Value If fci = clr Then sm = sm + cv End If Next FCS = sm E ... ex = clr Set r = rng.Find("*", searchformat:=True) If Not r Is Nothing Then ff = r.Address Do mysum = Ap ... t:=True) Loop Until r.Address = ff FCS = mysum End If End Function ---- ほんなら、これ =red(範囲) と書き ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200605/20060502142632.txt - [detail] - similar

[[20210405211137]] 1284: 『フィルタで絞り込んだ行に対して処理を行う。』（u）
こんばんは。フィルタで絞り込んだ行に対して処 ... rkbook.Path & "¥出庫リスト¥" & iDx(i)(2) & ".xlsx" If zWbExists(fNmTx) Then Application.DisplayAlerts = ... h(iDx(i)(3), srcWS1.Worksheets(1).Range("B:B"), 0) If Not IsError(x) Then .Cells(x, "A") = tMp(5) srcWS1 ... mn.AutoFit .Cells(x, "C") = dAtaBk dAtaBk = "" End If Next c End With End With srcWS1.Close True Set src ... Non" & Chr(13) & iDx(i)(2) & ".xlsx" Exit For End If If i Mod 30 = 0 Then DoEvents Next Set zTb = Nothi ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202104/20210405211137.txt - [detail] - similar

[[20160805223155]] 1284: 『ユーザーフォームについて』（ゆう）
いつも拝見させて頂き、勉強させてもらってます! 上司に無茶ぶり ... True reset End Sub Private Sub ComboBox1_Change() If Me.Tag = "Skip" Then Exit Sub Me.Tag = "Skip" make ... Me.Tag = "" End Sub Private Sub ComboBox2_Change() If Me.Tag = "Skip" Then Exit Sub Me.Tag = "Skip" make ... e Sub ListBox1_Click() Dim x As Long Dim i As Long If Me.Tag = "Skip" Then Exit Sub If modFlag Then If M ... 書き換えますか?", vbYesNo) = vbNo Then Exit Sub End If i = ListBox1.List(ListBox1.ListIndex, numCol - 1) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201608/20160805223155.txt - [detail] - similar

[[20090713102626]] 1284: 『if関数について』（たぺ）
エクセルの表を作成してます。 A1セルのリストを使って、A1=「あ」の時B1= ... - 出来ました。有難う御座いました。 ---- このようにIF()を8個書いたら、&でつなげてまた、8個まで書けますね ... 。 (JOKEUP) =IF(A1="あ","A",IF(A1="い","B",IF(A1="う","C",IF(A1="え ... ","D",IF(A1="お","E",IF(A1="か","F",IF(A1="き","G",IF(A1="く ... ","H","")))))))) &IF(A1="け","I",IF(A1="こ","J","")) 参考までに=OR()を使 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200907/20090713102626.txt - [detail] - similar

[[20100805094123]] 1284: 『IF文について教えてください』（ポポ）
もし、A1セルが"あ"ならば、B1セルの内容をC1セルに表示する。 ... まくいきませんので、ご指導お願いします。 C1セルに→ =IF(A1="あ",=B1,"") よろしくお願いします。 ---- C1=IF( ... ,"") (kei) ---- うまくいかない場合は、関数の挿入で IF を選び数式を入れていくと結果を確認しながら変更でき ... 下のような計算式を簡略化することは可能でしょうか?? =IF(L17="あ",AM17,"")&IF(L17="い",AM17,"")&IF(L17="う" ... ,AM17,"")&IF(L17="え",AM17,"")&IF(L17="お",AM17,"")&IF(L17="か" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201008/20100805094123.txt - [detail] - similar

[[20091108213418]] 1280: 『ランダムな数字をなるべく均等に並べ替えるには』（54-71）
異なる数字がいくつかあります。それをい ... al(ele) Next Next wk = .Max(asum()) - .Min(asum()) If wk < ans Then g2 = g0 ans = wk End If End With Nex ... 1) .Value = wkarray .Value = Application.Evaluate("if(" & .Address & "<>"""",value(" & .Address & "))") ... g, dpx As Long Dim kdx As Long Dim retcode As Long If nest = 0 Then menum = 1 d_cnt = UBound(in_array) - ... 数 - 1) ReDim dup(UBound(in_array)) adx = 0 pdx = 0 If patturn(pdx, 1) > 1 Then dupmd = 1 Else dupmd = 0 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200911/20091108213418.txt - [detail] - similar

訪問者：カウンタ