Solved

have a comment inserted into an excel spreadsheet using VB

Posted on 2007-11-27
2
762 Views
Last Modified: 2012-08-13
I want to insert a comment into a file that instructs the user to click on insert and then function/standard deviation.
The code as it is:

Set objExcel = CreateObject("Excel.Application")
 
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Comment.Add "My comment"
objExcel.Cells(1, 1).Value = "Date"
objExcel.Cells(1,2).Value = "Student"
objExcel.Cells(1,3).Value = "Wk1"
objExcel.Cells(1,4).Value = "Wk2"
objExcel.Cells(1,5).Value = "Wk3"
objExcel.Cells(1,6).Value = "Wk4"
objExcel.Cells(1,7).Value = "Wk5"
objExcel.Cells(1,8).Value = "Wk6"
objExcel.Cells(1,9).Value = "Wk7"
objExcel.Cells(1,10).Value = "Wk8"
objExcel.Cells(1,11).Value = "Mean"
objExcel.Cells(2,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(1,13).Value = "Click on insert on taskbar then choose function and add the formula for the standard deviation and then copy and paste into the cells below"
objExcel.Cells(3,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(4,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(5,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(6,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(7,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(8,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(9,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(10,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(11,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(12,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(13,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(14,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(15,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(16,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(17,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(18,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(19,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(20,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(21,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(22,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(23,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(24,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(25,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(26,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(27,11).Value = "=SUM(A3:A10)/8"
objExcel.Cells(28,11).Value = "=SUM(A3:A10)/8"
 
objExcel.Cells(1,12).Value = "S.D"

Open in new window

0
Comment
Question by:Dier02
2 Comments
 
LVL 26

Accepted Solution

by:
EDDYKT earned 500 total points
ID: 20364890
change
objExcel.Comment.Add "My comment"

to

objExcel.range("a1").addcomment
objExcel.range("a1").comment.Text Text:="My Comment"
0
 

Author Comment

by:Dier02
ID: 20546020
comes up with error if I copy it into notepad as save as a .vbs file then double click on it to run.
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
VB6 Compile Compatibility Issue 4 102
Can we place a tooltip on the actual vb6 form 5 41
Extract field headers and values between quotes 12 50
Child Form in front 4 46
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now