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

Results of 141 - 150 of about 37655 for IF (0.016 sec.)

[[20111129173053]] 1280: 『マクロを実行し、条件に一致した別sheetのセルにジャンプしたい』（ねこ）
お世話になります、どうし ... t sh1 = Sheets("Sheet1") d = sh1.Range("A1").Value If Len(d) = 0 Then MsgBox "会員番号が指定されていませ ... ん" Else For Each sh In Worksheets If Not sh Is sh1 Then If IsNumeric(Application.Match( ... sh.Columns("A"), 0)) Then flag = True Exit For End If End If Next If flag Then sh.Select Else MsgBox "会 ... 員番号" & d & "が見あたりません" End If End If Set sh1 = Nothing End Sub Sub Sample2() Dim ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111129173053.txt - [detail] - similar

[[20091013143526]] 1280: 『関数』（PaPa）
H J K U V No1在庫 No2在庫 No3在庫 No 出荷量 [22] 10 10 10 1 5 [23] 5 10 10 H列の ... れる為です。よく分からなければ、式は長く成りますが IF関数を使用されるのが良いと思います。前回の式ですと、 ... こんな感じで。 =H22+Y22-AI22+AL22-IF(U22=1,V22,0) どちらが分かりますか? (HANA) ---- 説明 ... うございます。作ってみたのですが =H22+Y22-AI22+AL22-IF(U22=1,V22,0)+IF(AA=1,AC,0)+IF(AA=1,AD,0) エラ-にな ... しまいました。（PaPa） ---- 修正 =H22+Y22-AI22+AL22-IF(U22=1,V22,0)+IF(AA=1,AC22,0)+IF(AA=1,AD22,0) （PaP ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200910/20091013143526.txt - [detail] - similar

[[20070522160336]] 1280: 『文字列処理』（おや?）
以下の様な関数は可能でしょうか? 宜しくお願いします。文字列NO.1 ABC1DEFZ ... For i = 1 To Len(txt2) .Add Mid(txt2, i, 1), Empty If Not .Exists(Mid(txt1, i, 1)) Then txt = txt & Mid( ... txt2, i, 1) Else txt = txt & " " End If .RemoveAll Next End With For i = 1 To Len(txt2) If ... flg Then If Not IsNumeric(Mid(txt2, i, 1)) Then flg = False If ... xt, n - 1) & Mid(txt2, n, i - n) & Mid(txt, i) End If ElseIf i = Len(txt2) Then If Len(Trim(Mid(txt, n)) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070522160336.txt - [detail] - similar

[[20131029142202]] 1280: 『伝票番号』（キカク）
下記のようにA列に番号を振りたいと思います。 A1の番号はセルD1の値（101）、 ... /29(火) 15:08 ---- 最初にA1:A5に101と入力して、 A6=IF((A1+1)>999,$A$1,A1+1) A6を下にコピー。（天邪鬼） ... (xlUp)) v = .Value x = .Cells.Count For i = 1 To x If v(i, 1) = "" Then j = 0 Else If i > 1 Then If v(i ... - 1, 1) = "" Then s = s + 1 End If End If v(i, 1) = s j = j + 1 If j = 5 Then s = s + ... 1 j = 0 End If End If Next .Offset(, -1).Value = v End With End S ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201310/20131029142202.txt - [detail] - similar

[[20101213213341]] 1280: 『二つのクリックイベントを一つのシートで行いたい』（Msd）
[エクセルのバージョン]Excel2003 [OSのバ ... ger, R As Range, B As Boolean For Each R In Target If Not Intersect(R, Range("L10:AE12,L26:AE28")) Is No ... thing Then If R.Value = "・" Or R.Value = "" Then GoTo NEXTCODE ... ancel = True B = False For i = 1 To Me.Ovals.Count If Shapes(i).TopLeftCell.Address = R.Address Then B = ... True: Exit For Next i If B Then Ovals(i).Delete Else Set R = R.MergeArea Wi ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101213213341.txt - [detail] - similar

[[20160527081343]] 1280: 『行列グループ化の判定をしてグループ化又はグループ解除する方法』（たぬき）
行・列のグループ化にお ... えればいいのかわからずです。。。 Sub MergeUnMerge() If ActiveCell.MergeCells = True Then If ActiveCell.Me ... rgeCells = True Then Selection.UnMerge Else If ActiveCell.MergeCells = False Then Selection.Merge ... End If End Sub ＜使用 Excel:unknown、使用 OS:unknown ＞ ... テーマからはずれて恐縮ですが、アップされたコードでは If ある条件 Then If ある条件 Then なになに Else If 反 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201605/20160527081343.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

[[20111101135213]] 1276: 『Excelの先入先出の方法』（らんきち）
Windows 7,Excel2007,です。 VBAはほとんど扱ったことがないん ... "A" & .Rows.Count).End(xlUp)).Resize(, 4) End With If WorksheetFunction.Sum(listIV.Columns(3)) < Workshe ... V.Offset(, 2).Value qDL = cDL.Offset(, 2).Value Do If qIV > qDL Then Allocation dic, qDL, cIV, cDL qIV = ... DL = cDL.Offset(1) qDL = cDL.Offset(, 2).Value ElseIf qIV < qDL Then Allocation dic, qIV, cIV, cDL qDL = ... IV = cIV.Offset(1) qIV = cIV.Offset(, 2).Value End If If Intersect(cDL, listDL) Is Nothing Then Exit Do ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111101135213.txt - [detail] - similar

[[20040818144128]] 1276: 『整数、小数、文字列の表示』（K）
セルA1に条件付の3種類のパターンを打ち込み、そのままセルB1に表 ... 。 A1の書式はあっちに置いといて・・・・『A1書式』 =IF(A1="","",IF(ISERR(MOD(A1,1)),TEXT(A1,"@"),IF(MOD(A ... (TEXT(A1,"#,##0")),VALUE(TEXT(A1,"0.000"))))) D1に=IF(A1="","",IF(ISERR(MOD(A1,1)),"",B1*C1)) で、どうで ... _Change(ByVal Target As Range) Dim col, r1 As Long If Target.Column <> 1 Then Exit Sub r1 = Target.Row c ... ol = Target.Column On Error Resume Next If Cells(r1, col).Value Mod 1 = 100 Then Cells(r1, co ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200408/20040818144128.txt - [detail] - similar

[[20150326225242]] 1276: 『完全一致検索(複数列)』（いっちゃん）
dataを格納したsheet1とdataを抜出表示させるsheet2があり、 ... Integer a = 1 b = 1 Do Until b = 3 Do Until a = 6 If Sheets(2).Cells(1, 4).Value = Cells(a, b).Value Th ... .Value = a c(1) = a d = 2 a = a + 1 Do Until a = 6 If Sheets(2).Cells(1, 4).Value = Cells(a, b).Value Th ... en c(d) = a d = d + 1 End If a = a + 1 Loop e = d d = 1 Do Until d = e Sheets(2 ... = Cells(c(d), 2).Value d = d + 1 Loop Exit Sub End If a = a + 1 Loop a = 1 b = b + 1 Loop End Sub （スズ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150326225242.txt - [detail] - similar

訪問者：カウンタ