How to put design in Excel spreadsheet/s using VB6 - excel

How can i put some design in excel spreadsheets? like the photo below
I am using VB6 here. Thank you in advance.

You may try this,
Use Record Macro in Excel to record the steps you formatting in Excel. Then open the Macro you recorded in VBA. From there you should find the clues on how to do this in VB6.

Related

Protect VBA code excel without writing VBA code

Sorry to bother you, i would like to stop people from being able to write code on VBA on my excel sheet.
But I can't do it since there is no VBA code already in place.
Then you will tell me to put some useless VBA code and protect it, but i can't do it because of workplace regulations (The document is approved as an excel sheet without vba).
So what do you think are my options ?
Is there a way to stop users from writing VBA code if you have no VBA code already written ?
If i use the project properties to add a password it won't work (because no vba code is written). I have tried this several times already
Thanks a lot,
Have a great day

Alternative formulas for vba script

I made a VBA function which turns my raw data into a table format since I want to use a pivottable for charts. The problem is that my file need to run on excel online and VBA is not running in a cloud environment.
Is there a way to do this with functions/power query/...
Thanks in advance
Took a while but i managed. It is in fact Excel online compatible Each formula is displayed above the corresponding column. I added some data to make sure it could handle extra data.
=IF(F8<>"",ROWS($G$7:G7),NA#)
=AGGREGATE(15,6,$G$8:$G$32,ROWS($G$7:G7))
=IF(ISNUMBER(H8),IF(ISTEXT(INDEX($B$6:$C$32,H8,1)),INDEX($B$6:$C$32,H8,2),I7),"")
=IF(ISNUMBER(H8),IF(ISTEXT(INDEX($C$7:$D$32,H8,1)),INDEX($C$7:$D$32,H8,2),J7),"")
=IF(ISNUMBER(H8),INDEX(E$8:E$32,$H8),"")
=IF(ISNUMBER(H8),INDEX(F$8:F$32,$H8),"")

Referencing other excel sheets in formula

So not able to use vba just yet but need the syntax to reference another sheet when using excel formulas I have tried:
=if((=‘test1’!A3)> 0, ‘test1’A1, B6*F6))
Or something along those lines just a example
Any help would be appreciated, I’m sure it’s something simple I’m messing up. It’s excel 2007 btw.
Thank you!

How to to create with excel VBA code or similiar

I need to some help.
I found a page from a book and I wonder how to create this solution from the beginning to the end?
Here's your help:
Read the first several chapters of your book on how Excel works.
Start the Excel Macro Recorder
Execute the items in Step 6 of your book
Stop the Excel Macro Recorder
Look at the code Excel generated for you

How to read Excel worksheets into datatables

I'm trying to solve this problem that I have in my application.
I'm doing a add-in excel for excel, and I've never done it before.
What I need to to do is open an excel file in excel and then I need to use Globals.ThisAddIn.Application.ActiveWorkbook
to access the workbook and retrieve the data from 4 worksheets into a datatable.
No connections with constrings, I have to work directly with the open book.
I've been working on this and getting nowhere.
Any help or pointers would be appreciated.
I managed to solve it on my own, which is great.

Resources