Results of 1 - 1 of about 71 for ExecuteExcel4Macro 閉じた｜開いて｜開かず (0.012 sec.)
executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)
- [[20151021142428]]
- #score: 14119
- @digest: 789bda5aa232337790a82a087b2c1faf
- @id: 69143
- @mdate: 2015-10-22T01:25:23Z
- @size: 2683
- @type: text/plain
- #keywords: ンケ (10378), 計フ (8100), 列44 (6235), 計45 (4279), アン (4052), ト集 (3457), 行d (3303), 各部 (2996), ンラ (2695), ト'! (2467), ケー (2309), 、○○ (2263), vbnormal (1999), ・31 (1558), 集約 (1491), シ様 (1486), ファ (1307), executeexcel4macro (1194), ウッ (1096), ァイ (1012), 「は (1004), ラン (982), 部署 (964), トフ (964), ○○ (947), （ラ (930), イル (847), 集計 (818), ッシ (744), ロボ (730), デス (473), トッ (390)
- 『アンケート集約』（ランラン）
アンケート集約のVBAについて教示お願いします。 サイト内で検索して調べて、応用しようとしましたが、うまく行きませんでした（涙） やりたいことは 1 同じ書式のアンケートファイル（ファイル名は各部署から送られてくるのでそれぞれ違います）があり、 それぞれのファイルの中のsheet1の名前を「アンケート」と変更しています。 2 アンケートファイルの書式は以下のとおりです。 行 J列 15 Q1、○○ですか? はい 16 Q2、○○はありますかか? いいえ 17 Q3、 ・・・・ はい ・ ・ という風に「はい」「いいえ」の二者択一の回答方式となっています。 3 アンケートファイルとは別に、集計ファイルを作成し、それに「はい」の数だけを合計したいと考えてます。 4 集計ファイルの様式は、Sheet1の名前を「グラフ」に変更し、以下のとおりです。 行 D列 44 Q1、○○ですか? 25 ←それぞれの質問に対する「はい」の数の合計 45 Q2、○○はありますかか? 40 46 Q3、 ・・・・ 31 5 デスクトップに「アンケート」というフォルダを作成し、その中に各部署からのアンケートファイルと集計ファイルを保存。 6 集計ファイルにVBAを作成し、マクロボタンに記録。 アンケートファイルは開かずに、集計ファイルに「はい」の数を集計したい。 こんな感じなのですが、よろしくお願いいたします。 ＜ 使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- こんにちは Sub test() Dim f As String Dim p As String Dim r As Range Dim b As Workbook Dim s As Worksheet Dim t As Range Dim i As Long Set b = ThisWorkbook Set s = b.Worksheets("グラフ") p = b.Path & "¥" f = Dir(p & "*.xls*", vbNormal) With s Do While f <> "" If f <> b.Name Then Set t = .Range("J15") For Each r In .Range("C44", .Range("C44").End(xlDown)) If Application.ExecuteExcel4Macro( _ "'" & p & "[" & f & "]アンケート'!" & t.Address(1, 1, xlR1C1)) = "はい" Then i = 1 Else i = 0 End If r.Offset(, 1).Value = r.Offset(, 1).Value + i Set t = t.Offset(1) Next End If f = Dir Loop End With End Sub これで、出来ますか? （ウッシ） 2015/10/21(水) 16:19 ---- ウッシ様 ありがとうございました。 バッチリでした!! またよろしくお願いしますm_ _m （ランラン） 2015/10/22(木) 10:25... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201510/20151021142428.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97056 documents and 608292 words.
訪問者：