5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

640 :名無しさん@そうだ選挙にいこう:2011/07/14(木) 14:29:09.67
【1 OSの種類         .】 Windows XP
【2 Excelのバージョン   】 Excel2002
【3 VBAが使えるか    .】 自動記録を少し弄る程度です
【4 VBAでの回答の可否】 可
【5 検索キーワード     】 マクロ 関数 計算結果のみ表示
Dim last
Range("A65536").Select
Selection.End(xlUp).Select
last = ActiveCell.Row
Range("D5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-3]=RC[-3],""  〃"",MATCH(RC[-3],Sheet2!C1,0))"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[2]=""  〃"",""   〃"",INDEX(Sheet2!C2,RC[2],0))"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[1]=""  〃"",""   〃"",INDEX(Sheet2!C3,RC[1],0))"
Range("B5:D5").Select
Selection.AutoFill Destination:=Range("B5", Cells(last, 4))
Range("B5", Cells(last, 4)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
関数のMATCH INDEXを使ってSheet2からデータを呼出後に
コピー→貼付(値と数値の書式)として関数を数値データにしてるのですが
最初から数値データとして呼出をする方法はないでしょうか?

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)