nyclwdy的个人资料

信念，才是通往巅锋的唯一坦途今天和一个朋友聊起了事业上的一些事情，这位仁兄有些急燥，总想跳着前发展，是的，着眼太过长远，对眼前的事务却很少的涉及，用我的话来说，就是那种恋爱还没有开始谈呢，就开始计划未来孩子的教育；我一直试图告诉他一个道理，大的战略目标不要那么清晰，只需要保持战略方向的正确，而小的阶段性目标一丝也不能模糊，更不能急燥，那样，看不到尽头的漫漫长路只会在你前进的过程中一点点消磨你出发时的信念，最终被心中的恐惧与对目标的无望彻底的压倒，只有不段的达成一个又一个小的阶段性目标，来一次次的坚定自己的信心，只有通过一次次自我目标的实现，给自己树立起来强大而又坚强的信心，使得自己达成最终目标，说着说着，就说起了清明假期期间，我爬武当山的经历来，我告诉这位仁兄，在爬山的过程中，我只是偶然会抬头看一些方向是否正确，大多数时候，我也不需要去确认，前人留下的石阶已经帮我清晰的指明了道路！而我，只是设定一个小目标，然后去完成它，并告诉自己我可以做到……最终一步一步的攀上金顶，而我的小目标，只是二十阶石梯而以！也许有些山友与我打过照面，他们可以看到，一个倔强的胖子，背着一个硕大的背包，手持两根登山杖，在刀削斧凿般的明神道上艰难的攀爬着！对，就像您想像的一样，我是一个胖子，很胖很胖的胖子，体重108KG，背包重13KG，因为每一次来武山，我都从家里带香表过来，不是为了节省，而是为了虔诚！往年来武当，都是坐索道上下的，由于前段时间母亲生病住院，今年特为母亲祈福而来，上山前就黙许了心愿，一定要一步一步爬上山去，这对我这样一个胖子多多少少有点难以想像，要知道，不坐电梯爬上四楼都让我气喘如牛，更何况这一千多米高的天下第一仙山，好在我有一些户外徒步经验，也明白装备以及正确使用装备的重要性，说实话，路上见到很多下山游客，手里虽然拿着各式各样的拐杖、树枝、也包括真正的登山杖的却嘴里喊着腿痛走不动之类的，包括那些从山上下来看到我的样子给我树起大拇指的朋友，我只是淡淡一笑，因为我没有见到一个在正确使用装备的，甚至没有见到一个使用双杖的游客；恐怕在走平路时，那些装备也只是他们想扔掉的累赘而已吧，而我在爬山之后的第二天，腿不疼，腰不困，肩也不累，照样自己开车几百公里回家；在南岩下车之后，先去了南岩宫上了一柱龙头香后，开始我的登山之旅，一直爬到下午6点才爬到金顶下面的迎宾馆，而这一路上，几乎每一个抬滑杆的都会告诉说你上不去的，你绝对爬不上去，而我，还偏偏选择了从明神道上山，不是为了它的风景，而是同样为了自己的虔诚，这条路是当天明成祖大兴武当时所建，4点半时，翻过了一天门，过了一天门之后，整条山路上我再也没有见过一个游客，空山寂寂，只有树影间萧萧乌啼伴着登山杖点台阶上的笃笃之声，当然还有那破风箱般沉重的喘息，虽然爬到两条大腿都相继抽了筋，爬到我喝干了最后一瓶水，但是除了喘息，我没有停下，一直想着心中的目标，二十阶，上二十阶就可以停下一次，从不抬头去看前方还有什么样的艰辛路途，知道很难，但是有句话，知难不难，只有路是对的，我坚信可以爬到地方，当然，由于上去的太晚，只好在迎宾馆住了一夜，第二天一早上金顶，然后下山回家最后我告诉朋友，我这个胖子善于创造奇迹，但是每一次我达成一个我都不敢相信的目标之后，总结一下，只定下一个小的目标，告诉自己能做到，一次一次达成小的目标，最终回过头来再看，发现到最后取得的成绩，竟然连自己都会吃惊不小！这是一种信念，不断的成功坚定了这种信念，而这种信念会带给你更大的收获

请教个问题，关于VBA查找时重名的问题 Dim AJ, AB, AK As Integer Dim NA, LH, FH As String Dim F, J, X, I AJ = ActiveWorkbook.Sheets("sheet2").[a65536].End(xlUp).Row For I = 2 To AJ NA = ActiveWorkbook.Sheets("sheet2").Range("B" & I) LH = ActiveWorkbook.Sheets("sheet2").Range("F" & I) With ActiveWorkbook.Sheets("数据库") Set F = .Range("C:C").Find(NA, , , xlWhole) If F Is Nothing Then FH = "查无此人" Else r = F.Row If LH = .Cells(r, 7) Then 就是这里，我计划是找到这个名字之后，看看LH是否等于这个名字所在行的一个数值，如果不等于，则让它继续查找下一个等于NA的的名字，再次校LH，如果不一样就再找下一个，这段代码该怎么去写？在线急等

冥想时出现幻觉不会冥想，有一天闲来无事，试着放松的坐下来，把所有的思想集中在一个点上，刚开始没有什么特殊的感觉，后来觉得眉心处有很强的压迫感，在脑海中清楚的看到了一座城市，而看到的这座城市事后我仔细的回忆，从来没有在适合的地方接触过，并不是在电视上，电脑上或是漫画中看过的，但是当时在脑海中清清楚楚的在半空看着这座城市，城市的左面，有一条很宽的河水也能称为江水，环过半座城流向远方，消失在地平线上，城市的街道不是很宽，建筑物也并不高，但是在城市中心，却有三幢很高很高的建筑物突兀的耸立在那里，方形，底部三分之一处向外呈流线状展开，三幢建筑间隔有四五个街区，呈不规则的品字形排列着，画面很直实，后来我就停了下来，直到第二天早上，眉心的压迫感还隐隐存在！问一下，这算是怎么回事？

谁知道哪里有卖行李吊牌要出国，想买两个行李吊牌，谁知道哪里有卖的？

求翻译，谢谢诸位大神 “我要办理登机手续，希望给我们三人安排在一排并靠窗的位置，谢谢” 初次出国，因英语差劲而转机时间有限，所以想先做个卡片，请大神们帮我译成英语，先谢谢了

求大神帮忙翻译成泰语 “我要办理登机手续，希望给我们三人安排在一排并靠窗的位置，谢谢” 初次去泰国，需要在机场转机，有时有限怕耽误，想先制做个卡片，谢谢诸位大神帮我翻译成泰语

求教一下，班斯瑞酒店在哪？曼谷班斯瑞酒店在那条街上，懂泰语的朋友能不能帮我把班斯瑞酒店的地址和名称写成泰语，防止打车时交流不方便，谢谢

2月10晚上到曼谷，11日安排曼谷半日，现需中文导游一名！ 2月10晚上到曼谷，11日安排曼谷半日，因下午16点要飞苏梅岛，现需中文导游一名！游览重点也就是大皇宫，酒店在大皇宫附近，如果有时间，可以安排体验一下射击，我射击曼谷的射击场离素万那普机场挺近的，有意向的可以将报价直接私信给我，谢谢

英庄急售房，谢谢大家金融公司一批抵帐房源，因急需回笼资金，低价赔钱出售，手续齐全，买即入住，后期绝无纠纷详询 13837746188，郭先生，谢谢大家

求助一个问题,关于VB同一个窗体多次打开我这里有一个窗口sell 需要多次打开,可是我的form2需要往sell窗体里写数据,本来只打开一次是很简单, sell.text2.text = me.text1,text就行了可是当sell 多次打开时,它就只能往第一次打开的那一个窗口里写,后面两个写不进去,现在我需要让它判断一下,哪个窗体打开的form2,就往哪个sell的text2.里写数据,请问该怎么判断呢?

求助，关于蜗牛的我的缸里这两天蜗牛大暴发，问一下这是为什么？有没有合适的治理方法？就是这种家伙，平时也有，发现了就捉，长不大的也捉出来，但是平时不多，今天早上起来吓我一跳，已经在里面捉出来一二十个了，全是这种壳长硬的

问下，杞县海底捞豪享来有没有？分别在哪？在线急等如题

南阳哪里有卖铝合金除尘地垫就是这种铺在门口的

问一下关闭MDI窗体的代码是什么？好像UNLOAD ME 关不掉它？

求教个问题关于ACCESS的我需要把text1的数据写进ACCESS数据库中SYStem表中"付款方式"列中，如果该列第一行无数据，就写在第一行，第一行有数据，则看第二行有无数据，如果无，写第二行，这个该怎么写啊？

求教一个ListView报表问题我想数据库system2表中的第二列里所有不相同的名称列进ListView控件的第一列中，请教一下各位老师，有没有什么好办法？

求助个读取INI的问题 INI文件名：system_setup.ini,放在文件所在的目录中里面的内容 [服务器配置] IP=NYCL-PC Port=hxdata UserName=sa Password=168168 现在我在窗体启动时，定义IP为一个变量，让这个变量去读取INI文件里的【服务器配置】中IP里面的值

救助一个问题，VB写入SQL SERVR数据库的问题我有几个数据想要写和SQL SERVER的一个表“HousingResources”里“房号”列中与text8相对应的一行里面 sql = "select * from HousingResources where 房号 ='" & Trim(Text8.Text) & "'" Call OpenConn rs.Open sql, cn, 1, 3 If rs.RecordCount = 0 Then '判断数据库里无此数据 Text8 = "" MsgBox ("房号不正确"): Exit Sub Else If rs.Fields("房源状态") <> "" Then MsgBox ("该房源已售，请重新选择"): Exit Sub Else rs.AddNew rs.Fields(9).Value = "已售" rs.Fields(16).Value = Trim(Text2.Text) rs.Fields(17).Value = Trim(Text1.Text) rs.Fields(19).Value = Trim(Text6.Text) rs.Fields(20).Value = Trim(Text7.Text) rs.Fields(21).Value = Trim(Text3.Text) rs.Fields(22).Value = Trim(Text5.Text) rs.Fields(23).Value = Trim(Text12.Text) rs.Update 怎么也写不进去，提示我实时错误，多步操作产生错误，请检查每一上的状态值？请老师们帮我看一下中里错了啊

求助一个VB6调用WORD打印的问题我们有一种一式三联的无碳复写的合同，42CM*28.5CM，需要按照已经设定好的格式用针式打印机把一种内容打印到指定的位置上，我想用WORD做一个模板，把纸张设成42CM*28.5CM，把合同扫描一下做成背景，然后把若干个WORD的文本框设在指定的位置上，让VB把相应的数据写进WORD的文本框并打印出来，由于对VB的认识只是初级阶段，所以想请教一下，如果让VB打开指定的WORD的文件，并把VB的TEXT1的内容写进WORD文本框中，并打印出来？这些代码该怎么写啊？

求助，VB6连接网络ACCESS数据库我想用VB作一个连接网络ACCESS数据库的窗体，在联接成功后在text1中返回一个信息，数据库名为HX.mdb,然后在数据库的userdata表中查询user列名为admin的那一行中usname列（第六列）中的信息，并返回到text2中，请那位老师帮我写这段代码啊

找一个会VB的高手解决一个问题，表述如下找一个会VB的高手解决一个问题，表述如下 EXCEL调用用VB6封装的DLL，其中含有用户窗体，调用成功后，窗口form1上点击按钮，弹出窗口form2，点击确认，需要以form1的text1.text里的数值做为索引，去EXCEL指定的数据表里找到该数值所在的行，将此行定义为excelcel 代码如下： form1中的代码: Set ExcelBook = ExcelApp.ActiveWorkbook Set ExcelSheet = ExcelBook.Sheets("房源数据库") ‘定义工作表 With ExcelSheet 'sheets("房源数据库") set excelrng = .Columns(2) '定义B列 Set ExcelCel = ExcelRng.Find(Me.Text1, , , xlWhole) '定义工作表中B列数值与该窗体text1内容完全相符的行在窗口1中运作正常但是在窗口2中 Set ExcelBook = ExcelApp.ActiveWorkbook Set ExcelSheet = ExcelBook.Sheets("房源数据库") ‘定义工作表 With ExcelSheet 'sheets("房源数据库") set excelrng = .Columns(2) '定义B列 Set ExcelCel = ExcelRng.Find(form1.Text1, , , xlWhole) '定义工作表中B列数值与窗体fomr1.text1内容完全相符的行这时候提示：运行时错误“429” activeX部件不能创建对象请问怎么解决？

求助一句VBA代码，请老师帮我看一下付款.Value = Application.RoundDown(Val(总价.Text * Sheets("sheet1").Range("L6"), Sheets("sheet1").Range("M8"))) 意图是这样的文本框“付款” ＝文本框“总价”里的数值 * 工作表sheet1中L列6行单元格里的数值，然后往下舍去“－4”，这个－4是单元格M8的值。问题是，我写的这句有问题，因为我不知道如果在VBA中的函数计算中调用指定单元格数值，所以想请老师们帮我改一下，谢谢

菜岛请教老师们一个关于用户窗体内文本框计算的问题在一个用户窗体里，我想让文本框textbox17来判断复合框combobox1里有没有内容，如果没有内容，则textbox17为空，如果有内容，且内容为“一”，则textbox17调用textbox16的内容（textbox16内容为一个整数），若combobox1里的内容为“二”，则textbox17调用textbox16的内容后，将该内容乘以0.6并舍去千位数以下的数字。这个用VBA应该怎么写？是不是写进textbox17的代码里就行了？

虽然2012年12月21日什么也没发生，虽然…… 2012年12月21日什么也没发生，虽然12月22日的太阳照常升起且随后几天一直如此，不过，从这几天的天气来年，我怎么越来越觉得后2012时代要上演后天模式，冻死了快

菜鸟求教一个VBA语句我用EXCEL写一个修改程序，点修改后把相应单位格里的数据写进另一个表中对应的位置上，其中一有一个数据需要重复写入但又不覆盖前次的，所以我想每次写入时让它向右移动一个单元格比如说，这次写入时是.cells（r,3）,那么在下次写入时，若R行第3个单元格有内容，则写入R行第4个单元格里，以此类推…… 请问该怎么做啊？

求助个问题，如果用VBA输入时略乎空值我用EXCEL上做了一个按钮，点一下可以把当前页面几个指定单位格的内容输进另一个工作表中相对应的位置，关键是它把空值也搞进去把原来的内容给覆盖了，所以求助各位老师，有没有什么办法让VBA输入时对输入有数据的单元格，把空值乎略掉呢？

再问个问题，我能不能让本地的一个EXCEL工作薄调用另一台电脑上… 再个问题，我能不能让本地的一个EXCEL工作薄调用另一台电脑上共享的EXCEL工作薄里的数据？

这里有一段代码，我想加一点东西，请问该怎么写？ private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True With Sheets("表2") Set f = .Range("b:b").Find(Sheets("表1").Range("b3"), , , xlWhole) If f Is Nothing Then MsgBox "未找到相应房号，请核实后再试！" Else r = f.Row If .Cells(r, 5) = "销控" Then MsgBox "此房源不可销售，请联系案场经理确认！" Else If MsgBox("此房可售，是否销控？", vbYesNo) = vbYes Then .Cells(r, 5) = "销控" Cancel = False End If End If End If End With End Sub ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝上面这段代码就是判断段房源是否已经销控，没有销控的话，则在打印之后在表2的第五列填入销控。现在我想，在第五列填入销控的同时，在第六列填入“表1”中A1单元格的内容，第七列填入A2的，第八列填入A3的，第九列填入A4的，以前类推至A8的内容，请问一下各位大师，这段代码该怎么加啊？

请教VBA高手最近帮财务部做了一个EXCEL电子台帐，需要录入很多信息，财务部提出能不能做一个弹出页面来录入一些相应的数据，以防止录入时还要找半天我们的整个工作簿有15个工作表，从1#……15#，分别代表了我们正在销售的15幢楼盘，每个工作表中，A列是房号，如“1-1-401”，每套房号已经事先输入了，财务上要做的，就是这套房子卖出之后，在该房号相应的那一行中，输入一些必要的数据 G：客户姓名 H：客户备注 I：总价 N：价格备注 O：认购合同签定没有（这个在工作表中我们有数据有效性做了一个下拉菜单，内容是“已签定”可以直接选择的） P：认购合同签定日期 R：付款方式（也是下拉菜单：“一次性付款”、“按揭贷款”、“公积金贷款”） U：第一次付款数额 V：第二次付款数额 W：第三次付款数额 X：第四次付款数额 Y：第五次付款数额 AB：按揭数额 AD：买卖合同签定与否（下拉菜单“已签定”和“未签定”） AE：按揭手续办理与否（下拉菜单“已办理”和“未办理”） AF：所签银行（下拉菜单“工行”“农行”“交行”） AG：是否放款（下拉菜单“已放”和“未放”）现在的想法有两个，一是做一个查询页，在输入房号之后，可以查询到上述数据并把他打印出来，二是做一个录入页面，在输入房号，并录入上述信息之后，能自动查找该房号所在的那一行并把上述信息录入该工作表相应的位置这东西对于我来说太难了，所以上来求救，请高手帮帮我，谢谢

遇上一个新问题，想自动追加数值，求教，谢谢我们财务部的新手遇上一个问题，问我我也搞不定，就来请教一下大家，他们统计房款，想在客户已付款一栏中，就是A列中输入一个什么函数也好什么也好，让它可以自动追加B列同一行的单元格中的数字比如 A1 B1 10000 500 关健是，A1将B1新输入的数值自动追加上，变成10500，而B1上数值可以不保存，下次在B1中再次输入数值时，可以使A1在10500的基础上再次进行追加。不知道我表达清楚没有

求助一个可自动填充颜色的方法 2007版中若B列的一个单元格=“售出”时，与它同在一行的其他列的单元格（D列——Z列）自动填充颜色。请教一下该怎么做呢？

谁知道南阳现在哪里有营业中的游泳馆？谁知道南阳现在哪里有营业中的游泳馆？除了体校那个和淘气猫上的之外

求助，可能有点难度的小东西我先描述一下，我给一个房地产项目做了一个自动算价格的置业计划单，在这个计划业单里有两个表，表1是计划单，表2是所有房源的房号、面积和价格，其中B列是房号，C列是面积，D列是价格；现在售楼人员只需要在表1中B2单元格内输入一个房号，就可以调用表2中对应房号的那一行中面积和价格，但是现在有个问题我们想解决一下，就是防止卖重房源，设想是这样，置业单都要打印，能不能在单子里面做一个打印按钮，在点了打印按钮之后弹出另一个对话框，是否销控该房源，如果选是，则在找到表2中对应表1$B2单元格中房号的那一行，并在这一行的E列中插入两个汉字“销控” 我想问一下各位大师，有没有方法做得到这个？

找一师院的美女陪我去看哈七或是生43D版总觉得自己看电影没意思，找一师院美女陪我去看哈七，或是生化4的3D版，情侣包厢，有美女去吗？联系QQ419228

南阳哪有做铝箱子的啊？南阳哪有做铝箱子的啊？南阳哪有做铝箱子的啊？南阳哪有做铝箱子的啊？南阳哪有做铝箱子的啊？我要定制一个铝箱子

防空警报防空警报~~~~~~~~~~~~~~~~~~~~~~~~~~~

求教个问题， A工作薄里有19个工作表我想在B工作薄里的A1单元格输入一个内容，A2就自动调用A工作薄里与输入内容相同的那一行里B列或C列的数据，请问该怎么做？

求助两个数组和的问题一，A列中50行全部为数组算计公式，每一行自动调用另一页一个满足条件的数据，直到调用满50为止，我该计算这些数据的和。二，如下表示 A B 1 90 通过 2 3 70 通过 4 69 通过 A列中其实是公式，简单举例就是if(b1="通过"，C1-D1，"")，我现在想计算B列为通过的A列单元格的和我做的公式是这样的 {=SUM((B1:B100="通过")*A:A100)} 但是结果却是：#VALUE! 这个该怎么计算？

紧急求救，哪里有卖手动抽水机紧急求救，哪里有卖手动抽水机

在南阳哪里能加来纯汽油请问在南阳哪里能加来纯汽油，不带开玩笑的啊

只想寻回儿子儿时的片断~~ 我和老婆于3月19日在青岛旅游，19日上午11点在第一海水浴场打车去太平角的如家快捷，不慎将一部三星数码相机遗失，相机虽然不值什么钱，但里面全是我儿子小时候的照片和录相，对我们十分珍贵，特求助本吧的朋友，若有好心人捡到，请将内存还我或是把照片发给我就可以，定重金酬谢，电话:13903770326，或15837758399，也可以用QQ给我联系：83532575，我们虽然已经离开青岛，但是还是希望能找回儿子儿时的片断，谢谢大家

寻物启示，急寻数码相机！我和老婆刚到青岛旅游，上午在第一浴场打车去香港中路如家快捷，不慎丢失数码相机一部，相机虽不值什么钱，但里面全是我儿子小时候的照片，对我们十分珍贵，特求助，有好心人捡到，请将内存还我即行，定重金感谢，电话:13903770326

君临的英文是怎么写的？君临的英文是怎么写的？

谁知道南阳哪里有卖天文望远镜的谁知道南阳哪里有卖天文望远镜的口径大于90，焦距大于1000的加赤道仪与电跟

求助，我怎么复制单元格中前两个字符啊？是这样，我们要把房号中楼号和单元号分开房号是1－2－2001，我参要让另一个单元格自动填写为1－2，怎么做啊？？谢谢各位

请问汽车站附近有没有收费停车场去内乡看个朋友，不想开车去他家，请问汽车站附近有没有收费停车场

请教一下南阳哪个医院看颈椎比较好最近老是一边脖子困痛，有时候连后脑勺都是痛的，痛的头都快直不起来了，可能是坐久了的原因了，必竟坐着上班都12年了，想找个医院看看，问问吧友们有没有好的医院？？

求租、急、急、急在新野几天，发现一个奇怪的现象，在咱们新野县租不到房子，郁闷到了极点，特在这里发了一条求租信息，希望能得到大家的帮助。急租、单元或民宅单元两室一厅三室一厅皆可、民宅嘛，两个卧室有没有客厅无所谓，但是要有地方可以洗澡，最好能再有个做饭的地就更完美了。位置嘛，朝阳小学附近，远点也行，无所谓了如果那位朋友有这方面信息，可以及时联系我 QQ：89514195 电话：13643992991、找寇先生即可