Excel VBA 编码问题,请高手帮忙！ - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Computation - 科学计算

Excel VBA 编码问题,请高手帮忙！

Excel VBA 编码问题,请高手帮忙！# Computation - 科学计算

l*n2013-12-11 08:12

1 楼

1. 50000 Points - SapphireSM Preferred Card -$500 开卡奖励 Best offer for
2011
限时大特惠，Chase 提供超高开卡bonus-5000points，可以直接兑换$500支票，或足以
兑换两张美国国内往返机票，还可以在ultimaterewards里当期giftcard特惠，可以最
高兑换$625当期优惠的gift card。第一年无年费。这个是平时双倍开卡的benefit，是
非常不错的deal
Earn 50,000 bonus points after you spend $3,000 in the first 3 months- that'
s worth $625 toward airfare or hotel accommodations!
http://goo.gl/jycFB
2.Chase Freedom Card - $150 Bonus Cash Back + 5% Cashback on Purchases
开户送$150现金，而且让您每个季度在不同的消费栏目(比如买菜，加油，百货)有5%现
金返还
Earn $150 Bonus Cash Back after you make $500 in purchases in your first 3
months
http://goo.gl/29TB3
3. Discover Open Road Card- $50 CashBack Bonus
提供三个月内前5笔25刀以上金额的加油$10返还，这是一笔$50 cashback bonus。目
前还可以用这个$50 cashback bonus 中的$40刀兑换$80刀的shell 加油卡
http://goo.gl/G6MMD
4.Chase SapphireSM Card – 25000 Points
申请就送$250现金，买机票和旅馆住宿2%现金返回，无年费
Earn $250 in rewards - that's 25,000 bonus points after you spend $3000 in 3
months!
http://goo.gl/hOF3Z
5.United Mileage Plus Card 30000miles offer+$50bonus只需要任意一笔消费无金额
限制
http://bankbonus.blog.163.com/
6. Chase continental onepass 30000miles offer+$50bonus 只需要任意一笔消费无
金额限制
http://bankbonus.blog.163.com/
7. 免费的Marriott Hotel 四晚酒店入住只需消费一笔无金额限制
http://bankbonus.blog.163.com/
最近申请chase家的这个信用卡会弹出一个页面，写着Before you go…We hope you
will reconsider 难不成他们家最近被人拿太多这个免费机票了不用对它客气，
赶紧点击Return&Apply，拿到落袋为安。更多详细情况请查看
http://bankbonus.blog.163.com/

P*e2013-12-11 08:12

2 楼

刘德华在官网承认结婚
中新网8月29日电刘德华(华仔)终于松口承认结婚了，他今日中午约于12点在官方网站
“华仔天地”发表一篇留言《对不起》，内容表示“我惭愧未能守住我的承诺先告诉大
家，让信任我的家人、朋友、媒体朋友难堪，对不起...正在工作当中，一时间不能尽
诉，容后向你们说明白。华仔”
据台湾“今日新闻”报道，从留言发布的时间来分析，今天上午媒体报道出刘德华和朱
丽倩在赌城结婚注册的纪录，极可能是让华仔觉得应该承认的关键原因。
先前香港有线电视专访刘德华时，华仔透露婚期近了，并表示他一定会公开，“我可以
代表刘德华跟你们说，他如果真的结婚，等到结婚那一天，他一定告诉你们，不会在未
来。”只是“Lau Tak Wah Andy和Choo Lay Keng”的结婚注册纪录曝光，也让刘德华
以《对不起》向喜欢他的粉丝道歉。
刘德华与朱丽倩的恋情一直到最近朱父过世，才对外公开；刘德华之前接受香港有线电
视访问，一开始他就说自己该结婚了，他是以第三人称的方式来谈感情世界，“早就应
该结婚了，比如说他真的结婚，往后的日子他应该怎么跑，他不能掌控，他不懂还不清
楚，所以他还是很小心翼翼去想想

s*n2013-12-11 08:12

3 楼

断苇枯荷水已冰
前朝遗事尚分明
桃花人面归何处
草色犹余数点青
各有恨，似无情
人间岁月太峥嵘
垂杨衰柳参差似
一片迷离画不成
作者：月溪法师

m*92013-12-11 08:12

4 楼

这年的冬天尤其冷，进入十二月后，气温迅速降低。华韵从外面回来一边跺脚一边搓手，说往年冬天可没这么冷。井岩接道，小时候的冬天很冷，经常下雪。现在都不怎么下了。唐佳是南方人，说去年就下了一场雪，没有想象得美。华韵说，那雪太小，都算不上。
谁知过了中午，天空就开始飘起了雪花，开始还飘飘洒洒，出去接几片在手里玩，说是今年的第一场雪。后来越发繁密，铺天盖地而来，地面、树枝、长椅、车棚顶都被盖住。到傍晚时分雪才停住。此时天色昏暗，地面上白白一层，已经结冰。
唐佳吃完晚饭给程序男打电话说晚上不出去了，就缩在床上不肯再动。井岩过来拉她去打热水，她头摇得拨浪鼓似的，说大不了晚上不用了。井岩说，谁敢不让你用。这个时候，华韵回来，说她和研究生去好了。井岩说，今天大家肯定都在宿舍了，我再打两壶。刚出楼，碰到淑慧和可乐男。可乐男不由分说，抢过水壶拉着淑慧走了。
淑慧把热水带进来的时候，华韵和研究生还没回来。淑慧说一路上就是暖水壶奏鸣曲，好几个人滑倒，壶胆摔碎。唐佳说，不会是华韵他们在商店里买新壶胆呢吧。正笑着，华韵进门，说你这个懒人得便宜还说风凉话。这时电视新闻上说，今天是节气大雪，这场雪也是近几年来最大的一场

c*t2013-12-11 08:12

5 楼

我装的是个破解(cracked)的acrobat professional 7.0. 激活是选的phone option,
用带的kengen产生Authorization code. 用了不久，就会弹出对话框：
Your computer's configuration appears to have changed since the time this
product was activated. To continue using this product, please click ok to
activate it again for your system configuration, or click cancel to exit.
重新激活，过不了多久（一两天），又会出现同样的问题。很烦人。其实我觉得我的系
统没有任何的改变，同样的网络设备(IP address),怎么会说我的系统变了要重新激活
呢？
有没有什么办法，可以只激活一次，可以一直用下去呢？到底应该如何激活这个破解的
软件呢？
我的系统是Windows Vista.
谢谢！

s*e2013-12-11 08:12

6 楼

理科改行的，现在排名30左右的MBA在读，Finance focus, 想以后在investment方面发
展，回国，香港或者美国（首选投行，PE，hedge fund, 或者基金公司，商业银行的投
资部门，实业公司的投资部门，或者好的咨询公司当然也好）。现在刚过了CFA level
2,请问有没有必要考一个FRM? FRM和CFA会冲突么？另外这样的背景回国找到上述机会
的可能性如何？多谢了！

a*m2013-12-11 08:12

7 楼

不知道发在哪里好，就发这里了。这里能人多，能不能帮我一个忙。我正在学excel
VBA，今天遇到一个pivot table问题。The routine is to filter the page field
for the dates before 30 Nov 2013. But it doesn't work. The system pops up an
error message: object or application defined error. 可是我找死都找不到问题
在哪里。也许你们看到那个inputbox function 很奇怪。本来我想通过它输入一个日期
，然后pivot table根据输入的日期自动filter the pivot table。但是有问题。我就
用30/11/2013来测试。可惜还是没反应。愁呀，求大牛帮忙，不胜感激。
Sub Update()
Application.Calculation = xlCalculationManual
Worksheets("pivot").Select
ActiveSheet.PivotTables("PivotTable8").PivotFields("Sof Details - End
Date (Trans)").ClearAllFilters
ActiveSheet.PivotTables("PivotTable8").RefreshTable
With ActiveSheet.PivotTables("PivotTable8").PivotFields("SOF")
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable8").PivotFields( _
"Sof Details - End Date (Trans)")
.PivotItems("(blank)").Visible = False
End With
Dim EndDate As String
EndDate = InputBox("Enter the month end date in dd/m/yyy: ")
Worksheets("pivot").Select
ActiveSheet.PivotTables("PivotTable8").PivotFields( _
"Sof Details - End Date (Trans)").PivotFilters.Add Type:=
xlBeforeOrEqualTo, _
Value1:="30/11/2013"

End Sub

m*92013-12-11 08:12

8 楼

下周再更新了。