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

Results of 141 - 150 of about 37667 for IF (0.015 sec.)

[[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

[[20120130163648]] 1280: 『行数のカウントNGと範囲の代入での実行時エラー』（katanohosi）
行き詰まってばかりで前に進めません ... & "¥エクスポート¥dsgn") For Each myFile In .Files If myFile.Name Like "gnCI東海の重複.xls" Or _ myFile. ... th .Sheets(1) ' gc = Cells(1, 3).End(xlDown).Row ' If gc = 2 Then .Range("C3").Select Dim n As Integer F ... or n = 1 To 1000 If n = 1000 Then End g = ActiveCell.Row 'gは行番号 ' ... " & g).Value 'sounyuitiの値取得(M列の貼り付け位置) If .Range("C3").Value = "" Then Exit For 'C3が""なら終 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120130163648.txt - [detail] - similar

[[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

[[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

[[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

[[20150326225242]] 1275: 『完全一致検索(複数列)』（いっちゃん）
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

[[20111122110935]] 1275: 『Excel在庫管理で入荷処理』（らんきち）
[[20111101135213]] [[20111110145634]] [[20111114163123]] ... ng Select Case Me.Tag Case "A" Call io商品(fnOpen) If Not make出荷指示書(fnOpen) Then CommandButton1.Ena ... False CommandButton3.Enabled = False Exit Sub End If Me.Caption = "出荷指示書作成（指示書を作成する出荷 ... 更新を行います。対象の出荷データを選んでください）" If Not make引当更新データ(fnGetList, v) Then CommandB ... .Enabled = False Else ListBox1.ColumnCount = 1 End If End Select ListBox1.List = v '以下はユーザーフォー ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111122110935.txt - [detail] - similar

[[20040818144128]] 1275: 『整数、小数、文字列の表示』（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

訪問者：カウンタ