Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開始

123下一頁
返回列表 發(fā)新帖
查看: 7577|回復(fù): 21
打印 上一主題 下一主題

Excel挑戰(zhàn)Access 第六期 快速填充

[復(fù)制鏈接]

點(diǎn)擊這里給我發(fā)消息

跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2016-3-30 14:23:32 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
技巧類 這個(gè)是2013版本新增功能。
具體看圖
當(dāng)在第二列輸入前兩個(gè)規(guī)則后,自動(dòng)生成剩下的規(guī)則


規(guī)則+1

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號(hào)?注冊(cè)

x
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱

點(diǎn)擊這里給我發(fā)消息

推薦
發(fā)表于 2016-3-30 14:37:58 | 只看該作者
小童,你這樣做是不對(duì)的,我記得你是曾經(jīng)來過Access陣營(yíng)的,怎么又堅(jiān)定回到小妖Excel那邊去了
回去也就算了,怎么還助紂為虐呢?
助紂為虐也就算了,怎么還不懷好意出個(gè)這樣的題呢?
你這不是把Access往死里整嗎  
太郁悶了,搞得我心情非常不好,算了,這題就讓給Roych大師了
推薦
發(fā)表于 2016-3-30 16:02:54 | 只看該作者
紙鴿 發(fā)表于 2016-3-30 14:46
access我是一點(diǎn)不會(huì),就又回到妖姐這邊了。

學(xué)了兩天access 一點(diǎn)都沒弄懂。。。。

Excel的數(shù)據(jù)透視表、圖表,Access比較難做到。當(dāng)然也圖表不是完全不行,但組合圖表可能需要使用第三方插件,不太建議這樣做:http://www.mzhfr.cn/thread-119343-1-1.html

點(diǎn)擊這里給我發(fā)消息

3#
 樓主| 發(fā)表于 2016-3-30 14:46:30 | 只看該作者
tmtony 發(fā)表于 2016-3-30 14:37
小童,你這樣做是不對(duì)的,我記得你是曾經(jīng)來過Access陣營(yíng)的,怎么又堅(jiān)定回到小妖Excel那邊去了
回去也就算 ...

access我是一點(diǎn)不會(huì),就又回到妖姐這邊了。

學(xué)了兩天access 一點(diǎn)都沒弄懂。。。。

關(guān)于這道題。。。關(guān)鍵我不知道Excel還有什么access不能做到的。 就像妖姐說的,代碼是除了生孩子,什么都會(huì)。。。
4#
發(fā)表于 2016-3-30 14:47:40 | 只看該作者
本帖最后由 roych 于 2016-4-4 16:26 編輯
tmtony 發(fā)表于 2016-3-30 14:37
小童,你這樣做是不對(duì)的,我記得你是曾經(jīng)來過Access陣營(yíng)的,怎么又堅(jiān)定回到小妖Excel那邊去了
回去也就算 ...

站長(zhǎng),你再這樣,我也去Excel陣營(yíng)了
對(duì)于Access來說,得使用強(qiáng)大的VBA了。
根據(jù)規(guī)則,這個(gè)是提取文本中的數(shù)字(姑且這么理解吧):
規(guī)則1:instr取得第一個(gè)數(shù)字位置,用mid和len截取剩余數(shù)字即可。
規(guī)則2:跟規(guī)則1類似,不同的是,mid函數(shù)需要取得最后一個(gè)參數(shù)。
----------------------------------------------------------------------------------
2016-4-4更新附件
  1. Function MyMid(ByVal strSource As String) As String
  2.     Dim i As Long
  3.     Dim iStart As Long, iEnd As Long
  4.     '開始位置
  5.     For i = 1 To Len(strSource)
  6.         If IsNumeric(Mid(strSource, i, 1)) Then
  7.             iStart = i
  8.             Exit For
  9.         End If
  10.     Next
  11.     '結(jié)束位置
  12.     For i = iStart To Len(strSource)
  13.         If IsNumeric(Mid(strSource, i, 1)) Then
  14.             iEnd = i
  15.         End If
  16.     Next
  17.     '提取
  18.     If iStart = 0 Then
  19.         MyMid = ""
  20.     Else
  21.         MyMid = Mid(strSource, iStart, iEnd - iStart + 1)
  22.     End If
  23. End Function
復(fù)制代碼


本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號(hào)?注冊(cè)

x

點(diǎn)擊這里給我發(fā)消息

6#
發(fā)表于 2016-3-30 16:33:48 | 只看該作者
主要是它能智能知道你想要做什么,這個(gè)不太好實(shí)現(xiàn)
7#
發(fā)表于 2016-3-30 17:01:14 | 只看該作者
tmtony 發(fā)表于 2016-3-30 16:33
主要是它能智能知道你想要做什么,這個(gè)不太好實(shí)現(xiàn)

嗯。部分兼顧到按固定長(zhǎng)度或者特定字符串分列,這一點(diǎn)比較困難。

點(diǎn)擊這里給我發(fā)消息

8#
發(fā)表于 2016-3-30 17:17:30 | 只看該作者
呵呵,不得了

點(diǎn)擊這里給我發(fā)消息

9#
發(fā)表于 2016-3-30 17:32:00 | 只看該作者

朱總,出個(gè)題,難死Excel他們

點(diǎn)擊這里給我發(fā)消息

10#
發(fā)表于 2016-3-30 18:27:47 | 只看該作者
tmtony 發(fā)表于 2016-3-30 17:32
朱總,出個(gè)題,難死Excel他們

果然是后媽
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-17 05:47 , Processed in 0.092565 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表