拷貝對應的sheet之前做的是一次拷貝一張sheet，顯然太低級，這次做了一個升級，一次可以拷貝n張sheet，並且根據名字自動匹配，將拷貝的報表名字顯示在相應的儲存格裡。不過之前測試的選擇性粘貼只拷貝數值而不拷貝連結並沒有成功。Option Explicit '作者: 黃立 '郵箱: ekinasm@ gmail.com '一次拷貝多張報表，自動匹配sheet名字 Const c_numOfWorkBook As Integer = 76 'workbook的數量 Const c_
現在對vba中的change事件有了比較清晰的認識，也明白了quer插在excel裡是怎樣的一個狀態。為了讓報表可以開啟時自動運行動態報表，必須用到change事件，如果誰有更好的方法請一定通知我。之前認為會計年度，記賬期間，還有公司代碼只要有一個改變就會觸發change事件。後來才發現其實即使不變也會觸發change事件，為什麼了，原來query再重新整理時所有資料都會變化，所以根本不用用三個儲存格來判斷，只用一個進行判斷就可以了。代碼如下：If Target.Address = "$B$10
在screen painter畫按鈕編程，這樣的設計現在很多IDE都採用，非常方便。function code其實就是一個相當於觸發事件的訊號。按下pushbutton的時候就會觸發PAI事件，接著就可以通過function code去判斷，有幾個小地方需要注意，一是在elements list裡類型為ok的元素一定要寫上你定義的變數，通常用的名字是ok_code。否則sy-ucomm裡的變數沒有儲存到相應的變數裡。
目前在中文網站上還沒有發現研究bw的sapbex附加元件的，本人應該算比較超前了。因為搞vb的不搞sap，搞bw的懂編程的又少，懂編程又不見得懂vba，呵呵，看來我還是蠻厲害。著作權聲明：原創作品，允許轉載，轉載時請務必以超連結形式標明文章原始出版、作者資訊和本聲明。否則將追究法律責任。本文地址：
query裡有時有些儲存格的限制條件會與其他大部分儲存格不同，那麼重新定義儲存格的限制條件十分需要。做重新定義之前，要在列裡先定義一個公式，並選擇源於競爭公式，如：先點擊新公式選擇特性 特性裡選擇源於競爭公式。 注意在新定義的儲存格裡不光要加上限制條件，key figure也要加上，相當於完全重新覆蓋，根本不考慮之前做的限制條件。
因為需要做出５８張報表的勾稽關係，我做了一個ｖｂａ程式拷貝，但是一次開啟多個報表的時候有個問題就是會讓使用者多次輸入選擇螢幕，今天項目組來了一個資深顧問，我發現資深顧問看起來果然和我這種剛畢業的不一樣，頭髮是黑白相間，看起來飽經滄桑，說話不緊不慢，不卑不亢，我對他提的問題也會認真回答，不過很遺憾的是我還不知道他的名字。對於一次開啟多個報表只用輸入一次選擇螢幕的問題，我之前的解決方案不能成功的原因也有了答案，我之前是自建一張表通過abap寫一個選擇螢幕將變數儲存在表中，然後再用bw的退出變數從表中
今天寫程式發現了一個有意思的現象，我將明細的資料匯總輸出的時候，發現同一客戶編碼的客戶居然會有多行！不可能啊我想，明明我用了at end of摘要資料。通過這個現象我想有兩個原因造成，首先是at end of 不起作用，其次是資料沒有用sort對客戶編碼進行排序。通過debug發現我已經對資料進行了排序，真的是at end of不起作用了。後來搜了下發現，如果要讓at end
前段時間加班，讓我好久沒有看書了，周日又開始看programming pearls了，分享下My Code。livewrier對代碼排版的支援實在不好，大家湊合著看吧。2.3節對字串位移的計算演算法實在高明，真不知道作者是怎麼想出來的，不過它的方法是可以用數學歸納法證明正確的，下面是我的實現代碼：#include #include void reverse(char *str, int startPos, int endPos) { char temp;
這段時間又開始了做query，做query其實不難，做了幾十個之後，雖然談不上精通但也對query有了一定的體會。query和abap開發是有很大不同的，雖然都是技術方向的。query的製作其實就是對資料進行篩選，和excel的篩選其實是一個道理，甚至幾乎一樣，所以只要懂excel的篩選，你就懂了如何製作query。query不能對資料進行在加工，或者說是對資料加工的功能很弱，只能對資料進行篩選，所以在更新規則和傳輸規則裡如果可以進行資料加工，就在那裡進行。舉個例子要算年初數-年末數單獨定義儲存
1.郵件標題亂碼郵件標題的亂碼很好解決，使用MimeUtility類即可進行轉換。代碼如下： mailMessage.setSubject(MimeUtility.encodeText(mailInfo.getSubject(),MimeUtility.mimeCharset("gb2312"), null));這裡的gb2312也可以改為utf-8。 2.英文windows郵件內文亂碼在我本機上郵件內文並沒有出現亂碼，但是將程式放在了英文windows
這個項目上vba程式寫了不少，不過也悟出了一些心得，對以後任何一門語言開發都有協助。下面是我思考的一些開發體會。1.溢出錯誤之前寫程式跑報表最常見的一個錯誤，就是因為行結束的標記是結果或者總計結果，然後我一行行的判斷是否已經找到，當query插入的位置變化了，或者沒有這個技術標記就出現溢出錯誤（我用integer來記錄行號，最大值是32767）。這兩天思考了下，其實可以不用這麼做，現在我覺得用find方法直接去找結束標記，然後再用err對象去處理錯誤。這樣可讀性更高，也不會報表報錯的情況。2.q
//彈出新視窗 function openPanel(src,t){ win = new Ext.Window({ title:t, layout: 'fit', width: 900, height: 600, closeAction: 'close', plain: true,
之前的報表全部放在一個ｅｘｃｅｌ檔案裡，所以尋找ｓｈｅｅｔ非常麻煩．那我就自己寫了個小程式方便尋找，不過沒有模糊尋找的功能，以後可以完善下．代碼如下：Sub findName() Dim sheetFind As Worksheet Dim name As String name = InputBox("輸入要尋找的sheet名", vbOKCancel) For Each sheetFind In Worksheets
今天寫的代碼我感覺比較優雅，雖然用的是不熟悉的語言ＶＢＡ。解決問題用了table lookup，對於沒有固定標題的情況下我又新增了一個變數來得到不確定的行數。代碼如下：Option Explicit Public insertAllNum As Long 'query裡插入的所有的行數 Public dynNum As Integer '動態插入一個標題則加一 Dim InsertTitle(3) As String
上周六開始讀編程珠璣了，看完了第一篇。不過現在才寫筆記，第一篇的問題其實回過頭來想想非常簡單，但是對於一個學過資料結構和排序演算法又瞭解不深的人不可能想出來這樣的方法吧，反而對於一個沒學過排序的人更有可能想到。問題是這樣的：input: a file containing at most n positive integers,each less than n,where n = 107. it is a fatal error if any integer occurs twice in
如有轉載請註明出處：http://blog.csdn.net/donkey2004112103/archive/2009/05/03/4145450.aspx程式中經常會要根據客戶或者供應商編號得到他們的描述資訊，或者公司代碼，分銷渠道等等，都是要根據代碼得到描述資訊，如果在select語句中做內串連是可以做到，只是比較麻煩，不是很靈活。SAP中提供了很多讀取這些資訊的函數。總結下。1.function group
<%@page contentType="application/vnd.ms-excel; charset=utf-8" language="java"%><% response.setHeader("Content-disposition","attachment; filename=interface_log_detail.xls");%><%@ taglib prefix="s" uri="/struts-tags" %><HTML xmlns:
今天碰到一個優點奇怪的字串的問題，看看下面的代碼吧：DATA: ch3(3) TYPE c, ch2(2) TYPE c. ch2 = 1. ch3 = 2. IF ch3 eq '2'. WRITE:/ 'dd'. ENDIF. IF ch2 eq '1'. WRITE:/ 'ff'.
獲得本月最後一天在abap裡還是非常方便的，大概分的話有兩種方法，一是自己算，而是調用系統函數。兩個我都分別示範下。1.自己運算date+6(2) = '1'. date+4(2) = date+4(2) + 1. date = date - 1.這個自己寫的有個缺陷，如果為12月的話月份加一全部都變為0.所以還得添加判斷的情況，修改後如下：date+6(2) = '1'. IF date+4(2) eq '12'. date+6(2) = '31'. ELSe. date+4(2) =
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
