Excel VBA: custom collection duplicated items -


I have created a class that contains a custom collection class when the parent class is filled from the item when the parent class is started. The problem is that when I repeat through the objects of the collection, the properties of the last item are added in all the items. Items must be added to cells in ActiveSheet, each item has a name and range properties, the name is the value of the cell, the range range is. So in cell A1: D1, I have the value ID, Q1, Q2, Q3 and when I make an example of the parent class, then I hope the members of the collection are named id, Q1, Q2, Q3 and range A1, B1 will be C1. , D1 When I repeat, the output shows Q3, Q3, Q3, Q3 and $ D $ 1, $ D $ 1, $ D $ 1, $ D $ 1.

Where's the problem?

Code below: 

  Sub test (sample sample) as sample sample = new sample dim field in sample as new field for each FLD . Filters Debug Print fld.Name; VbTab; Fld.Range.Address Next End sub

field class: 

  Get the string public property name as a private category name in the form of a private category ( ) As the string name = PName end property public property name (value as string) pName = value end property public property set range (range as rng) field class (custom collection):  
  private pstfile_size private sub-class as collection Set (Set) pFields = New archive ending sub-sub-square-guitar () Set pFields = None End sub folk function NewEnum () as set as IUnknown NewEnum = pFields. [_NewEnum] Termination Function Add Public Sub (field as field) pFields.Add fld termination deputy folk sub (index as diversity) pFields.End End End Sub Public property item (as in the form of index) Field set items = pFields.Item (index) end property property as GE calculate () long term = pFields.Count termination property public sub clear (set) pFields = new archive ending sub  
 
 More sample Class (with a field collection class): 
 
 
 
 
 
  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 "A1"). CurrentRegion.Rows (1) in rngHeaders for each RNGGL. New field as new field new field new field.Name = rngCell.Value2 set NewField .Range = rngCell pFields.Add NewField Next rngCell End Sub

The problem is resolved.

has changed this: 

  rngHeaders.Cells for each rngCell NewField NewField.Name = rngCell.Value2 set as New field in NewField.Range = rngCell PFields.Add NewField next to RNGCell

To do this: 

  Set as RangeHeaders.Cells for each RNGLL as NewField field NewField = New Field NewField.Name = rngCell.Value2 Set NewField.Range = rngCell pFields.Add NewField Next RNGCell

Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more