1樓:【名臣
看不明白意思,每組是16個引數嗎?圖上只有三個引數還有如果16個一組的話,那麼每組的max跟min這兩個值就固定的。
那來的1:0<=max-min<=500,2:0<=max-min<=1,
3:0<=max-min<=0.02
這三種情況
2樓:匿名使用者
sub findin()
dim arr, i%, j%, imax%, icount%
arr = activesheet.[a2:f17]
for i = 1 to 16
icount = 0
for j = 1 to 16
if arr(j, 2) - arr(i, 2) <= 500 and arr(j, 2) - arr(i, 2) >= 0 then
if arr(j, 3) - arr(i, 3) <= 1 and arr(j, 3) - arr(i, 3) >= 0 then
if arr(j, 4) - arr(i, 4) <= 0.02 and arr(j, 4) - arr(i, 4) >= 0 then
icount = icount + 1
end if
end if
end if
next j
arr(i, 5) = icount 'i行作為最小值的符合條件的計數
next i
imax = 1
for i = 1 to 16
if arr(i, 5) > arr(imax, 5) then imax = i
next i
i = imax '找到最大的計數
for j = 1 to 16
arr(j, 6) = ""
if arr(j, 2) - arr(i, 2) <= 500 and arr(j, 2) - arr(i, 2) >= 0 then
if arr(j, 3) - arr(i, 3) <= 1 and arr(j, 3) - arr(i, 3) >= 0 then
if arr(j, 4) - arr(i, 4) <= 0.02 and arr(j, 4) - arr(i, 4) >= 0 then
arr(j, 6) = i '給符合條件的標記
end if
end if
end if
next j
activesheet.[a2:f17] = arr
end sub
3樓:表裡如一
需要用巨集,早就跟你說了。。
發原始表到[email protected]
好朋友們,我想要個excle2010或2013的辦公軟體,從網上總**不成功拜託大家幫忙,萬分感謝 50
4樓:匿名使用者
你用wps辦公軟體就行了,和excle一樣的。而且還免費。
求助:如何使用vba實現,在不開啟已知路徑的excel檔案的情況下,將裡面的sheet1中的內容複製到當前excel
5樓:匿名使用者
不開啟檔案的情況似乎只有資料庫訪問方式才可以,把要訪問的excel檔案作為乙個資料庫。這樣的話你要動態鏈結資料庫,很麻煩
一般人都用欺騙的方式吧,就是不刷屏,並把開啟的excel隱藏,讀取後再關閉,和沒有開啟看起來是一樣的
6樓:
option explicit
sub 取值(路徑 as string, 檔案 as string, 工作表, 單元格 as string)
on error resume next
dim rng as range
sheets("sheet1").usedrange.clear
[a1].activate
set rng = activecell.resize(range(單元格).rows.count, range(單元格).columns.count)
if err <> 0 then
msgbox "請調整區域,當前區域不足以存放引用區域的值" _
& chr(10) & "建議選擇a1再執行程式", 64, "提示"
exit sub
end if
'將目標區域複製到以當前表活動單元格為左上角的相同大小的區域中
with activecell.resize(range(單元格).rows.count, range(單元格).columns.count)
'在指定區域輸入公式,該公式引用指定路徑下的工作表資料,可以是單元格也可以是區域
.formulaarray = "='" & 路徑 & "\[" & 檔案 & "]" & 工作表 & "'!" & 單元格
'將公式轉換成值
.value = .value
end with
end sub
sub 提取資料()
取值 thisworkbook.path & "\檔案", "附件1.xls", "新發生", "a1:b50"
'檔案,附件1,新發生 等資訊可自行修改成自己需要的
end sub
7樓:匿名使用者
求助,用Excel當中的條件格式實現下面的問題,非常感謝
比如選中a1 條件格式 公式 or a1 1,a1 2,a1 3,a1 4,a1 1052,a1 1140,a1 1141,a1 3533,a1 3453 設定一種格式顏色.在d列輸入這些對照資料,然後選擇a列整列 格式 條件格式,左側選公式,右側輸入 countif d d,a1 點開格式,設定顏...
注釋下面的vba語言謝謝,求注釋vba語句,一句一句地注釋下,剛學,很懵
上面是乙個小小設定excel格式和輸入值的 第一行,過程名稱 writevalue 以及引數 sheet是工作表,rownum是整數,text是字串,pos是字串 第二行,定義變數cell為工作表單元格 第三行,賦值給cell 值是sheet指定的工作表中由pos和rownum組成的單元格位址 第四...
在excel裡面怎麼能實現下面兩個字辦成上下各字
填寫單元格的時候,按alt 回車可以在單元格內換行 富柏 將滑鼠放在你需要換行的字後面,然後同時按住alt enter 將滑鼠放在 單1位 中間,然後同時按住alt enter,就好了 excel中怎樣讓兩個字一個在上面一個在下面啊? 茗童 1.開啟或新建excel 如圖 2.首先在單元格中輸入資料...